Index: t/post.t
===================================================================
--- t/post.t	(revision 12134)
+++ t/post.t	(working copy)
@@ -21,9 +21,9 @@
 
 $code .= "    node = new 'POST::$module'\n";
 $code .= <<'CODE'
-    $P0 = new PerlString
+    $P0 = new .String
     $P0 = 'bar'
-    $P1 = new PerlArray
+    $P1 = new .ResizablePMCArray
     push $P1, $P0
     node.set_node('foo', 42, $P1)
     $P1 = getattribute node, 'source'
Index: t/post_node.t
===================================================================
--- t/post_node.t	(revision 12134)
+++ t/post_node.t	(working copy)
@@ -26,9 +26,9 @@
     load_bytecode 'languages/punie/lib/POST/Node.pir'
     .local pmc node
     node = new 'POST::Node'
-    $P0 = new PerlString
+    $P0 = new .String
     $P0 = 'bar'
-    $P1 = new PerlArray
+    $P1 = new .ResizablePMCArray
     push $P1, $P0
     node.set_node('foo', 42, $P1)
     $P1 = getattribute node, 'source'
@@ -57,7 +57,7 @@
     node1 = new 'POST::Node'
     node2 = new 'POST::Node'
     node2.set_node('b', 9, $P0)
-    $P1 = new PerlArray
+    $P1 = new .ResizablePMCArray
     push $P1, node2 
     node1.set_node('foo', 42, $P1)
     node1.dump()
Index: t/past.t
===================================================================
--- t/past.t	(revision 12134)
+++ t/past.t	(working copy)
@@ -21,9 +21,9 @@
 
 $code .= "    node = new 'PAST::$module'\n";
 $code .= <<'CODE'
-    $P0 = new PerlString
+    $P0 = new .String
     $P0 = 'bar'
-    $P1 = new PerlArray
+    $P1 = new .ResizablePMCArray
     push $P1, $P0
     node.set_node('foo', 42, $P1)
     $P1 = getattribute node, 'source'
Index: t/past_node.t
===================================================================
--- t/past_node.t	(revision 12134)
+++ t/past_node.t	(working copy)
@@ -35,9 +35,9 @@
     $P1 = getattribute node, 'pos'
     print $P1
     print "\n"
-    $P1 = new PerlString
+    $P1 = new .String
     $P1 = "bar\n"
-    $P2 = new PerlArray
+    $P2 = new .ResizablePMCArray
     push $P2, $P1
     setattribute node, 'children', $P2
     $P2 = getattribute node, 'children'
@@ -56,9 +56,9 @@
     load_bytecode 'languages/punie/lib/PAST/Node.pir'
     .local pmc node
     node = new 'PAST::Node'
-    $P0 = new PerlString
+    $P0 = new .String
     $P0 = 'bar'
-    $P1 = new PerlArray
+    $P1 = new .ResizablePMCArray
     push $P1, $P0
     node.set_node('foo', 42, $P1)
     $P1 = getattribute node, 'source'
@@ -87,7 +87,7 @@
     node1 = new 'PAST::Node'
     node2 = new 'PAST::Node'
     node2.set_node('b', 9, $P0)
-    $P1 = new PerlArray
+    $P1 = new .ResizablePMCArray
     push $P1, node2 
     node1.set_node('foo', 42, $P1)
     node1.dump()
Index: lib/PunieOpLookup.pir
===================================================================
--- lib/PunieOpLookup.pir	(revision 12134)
+++ lib/PunieOpLookup.pir	(working copy)
@@ -34,7 +34,7 @@
 
 .sub _load :load
     .local pmc lookuptable
-    lookuptable = new PerlHash
+    lookuptable = new .Hash
     _add_entry(lookuptable, 'infix:+', 'add')
     _add_entry(lookuptable, 'infix:-', 'sub')
     _add_entry(lookuptable, 'infix:*', 'mul')
@@ -64,7 +64,7 @@
     .param pmc lookuptable
     .param string key
     .param string value
-    $P1 = new PerlString
+    $P1 = new .String
     $P1 = value
     lookuptable[ key ] = $P1
 .end
Index: lib/past2post.g
===================================================================
--- lib/past2post.g	(revision 12134)
+++ lib/past2post.g	(working copy)
@@ -1,6 +1,6 @@
 ROOT: result(.) = {
     .local pmc newchildren
-    newchildren = new PerlArray
+    newchildren = new .ResizablePMCArray
     $P1 = node.children()
     .local pmc iter
     iter = new Iterator, $P1    # setup iterator for node
@@ -21,7 +21,7 @@
 
 PAST::Stmts: result(.) = {
     .local pmc newchildren
-    newchildren = new PerlArray
+    newchildren = new .ResizablePMCArray
     $P1 = node.children()
     .local pmc iter
     iter = new Iterator, $P1    # setup iterator for node
@@ -73,9 +73,9 @@
     # Iterate through the children of the node, and generate the result
     # for each child.
     .local pmc newchildren
-    newchildren = new PerlArray
+    newchildren = new .ResizablePMCArray
     .local pmc newops
-    newops = new PerlArray
+    newops = new .ResizablePMCArray
     $P1 = node.children()
     .local pmc iter
     iter = new Iterator, $P1    # setup iterator for node
@@ -141,9 +141,9 @@
     nodesource = node.source()
     nodepos = node.pos()
     .local pmc newchildren
-    newchildren = new PerlArray
+    newchildren = new .ResizablePMCArray
     .local pmc newops
-    newops = new PerlArray
+    newops = new .ResizablePMCArray
     $P1 = node.children()
     .local pmc iter
     iter = new Iterator, $P1    # setup iterator for node
@@ -164,7 +164,7 @@
         push newops, $P5
         push newchildren, $P4
         # Assign the value node to the variable
-        $P6 = new PerlArray
+        $P6 = new .ResizablePMCArray
         push $P6, $P4 # the first argument is the variable
         push $P6, $P3 # the second argument is the value
         $P7 = new 'POST::Op'
@@ -231,9 +231,9 @@
     # Iterate through the children of the node, and generate the result
     # for each child.
     .local pmc newchildren
-    newchildren = new PerlArray
+    newchildren = new .ResizablePMCArray
     .local pmc newops
-    newops = new PerlArray
+    newops = new .ResizablePMCArray
     .local pmc iter
     iter = new Iterator, $P1    # setup iterator for node
     iter = 0
@@ -242,7 +242,7 @@
       shift $P2, iter
       $P3 = tree.get('result', $P2)
       $S1 = typeof $P3
-      $P4 = new PerlArray
+      $P4 = new .ResizablePMCArray
       $P5 = new 'POST::Op'
       $S1 = typeof $P3
       if $S1 == 'POST::Ops' goto complex_result # the argument has setup
Index: lib/POST/Var.pir
===================================================================
--- lib/POST/Var.pir	(revision 12134)
+++ lib/POST/Var.pir	(working copy)
@@ -30,7 +30,7 @@
     $P2 = pos
 
     unless got_varname goto no_varname
-      $P3 = new PerlString
+      $P3 = new .String
       $P3 = varname
       setattribute self, "varname", $P3
     no_varname:
@@ -49,11 +49,11 @@
     self.set_node(nodesource,nodepos)
     self.new_temp()
     # Then we create a child array for a fabricated op to create a new
-    # pmc of type 'PerlUndef'. It has 2 arguments: the temp variable and
+    # pmc of type 'Undef'. It has 2 arguments: the temp variable and
     # the type.
-    $P5 = new PerlArray
+    $P5 = new .ResizablePMCArray
     push $P5, self
-    $I1 = find_type 'PerlUndef'
+    $I1 = find_type 'Undef'
     $S10 = $I1
     $P6 = new 'POST::Val'
     $P6.set_node(nodesource,nodepos,$S10)
@@ -70,7 +70,7 @@
     .param int got_varname :opt_flag
     unless got_varname goto get
   set:
-    $P1 = new PerlString
+    $P1 = new .String
     $P1 = varname
     setattribute self, "varname", $P1
     .return ($P1)
Index: lib/POST/Op.pir
===================================================================
--- lib/POST/Op.pir	(revision 12134)
+++ lib/POST/Op.pir	(working copy)
@@ -29,7 +29,7 @@
     $P1 = source
     $P2 = getattribute self, "pos"
     $P2 = pos
-    $P3 = new PerlString
+    $P3 = new .String
     $P3 = op
     setattribute self, "op", $P3
     unless got_children goto no_children
Index: lib/POST/Val.pir
===================================================================
--- lib/POST/Val.pir	(revision 12134)
+++ lib/POST/Val.pir	(working copy)
@@ -27,7 +27,7 @@
     $P1 = source
     $P2 = getattribute self, "pos"
     $P2 = pos
-    $P3 = new PerlString
+    $P3 = new .String
     $P3 = value
     setattribute self, "value", $P3
     .return ()
@@ -66,7 +66,7 @@
     .param int got_valtype :opt_flag
     unless got_valtype goto get
   set:
-    $P1 = new PerlString
+    $P1 = new .String
     $P1 = valtype
     setattribute self, "valtype", $P1
     .return ($P1)
Index: lib/POST/Node.pir
===================================================================
--- lib/POST/Node.pir	(revision 12134)
+++ lib/POST/Node.pir	(working copy)
@@ -21,9 +21,9 @@
 
 
 .sub __init :method
-    $P1 = new PerlUndef
-    $P2 = new Integer
-    $P3 = new PerlUndef
+    $P1 = new .Undef
+    $P2 = new .Integer
+    $P3 = new .Undef
 
     setattribute self, "source", $P1
     setattribute self, "pos", $P2
Index: lib/PAST/Op.pir
===================================================================
--- lib/PAST/Op.pir	(revision 12134)
+++ lib/PAST/Op.pir	(working copy)
@@ -29,7 +29,7 @@
     $P1 = source
     $P2 = getattribute self, "pos"
     $P2 = pos
-    $P3 = new PerlString
+    $P3 = new .String
     $P3 = op
     setattribute self, "op", $P3
     unless got_children goto no_children
Index: lib/PAST/Val.pir
===================================================================
--- lib/PAST/Val.pir	(revision 12134)
+++ lib/PAST/Val.pir	(working copy)
@@ -27,7 +27,7 @@
     $P1 = source
     $P2 = getattribute self, "pos"
     $P2 = pos
-    $P3 = new PerlString
+    $P3 = new .String
     $P3 = value
     setattribute self, "value", $P3
     .return ()
@@ -65,7 +65,7 @@
     .param string valtype :optional
     unless valtype goto get
   set:
-    $P1 = new PerlString
+    $P1 = new .String
     $P1 = valtype
     setattribute self, "valtype", $P1
     .return ($P1)
Index: lib/PAST/Node.pir
===================================================================
--- lib/PAST/Node.pir	(revision 12134)
+++ lib/PAST/Node.pir	(working copy)
@@ -21,9 +21,9 @@
 
 
 .sub __init :method
-    $P1 = new PerlUndef
-    $P2 = new Integer
-    $P3 = new PerlUndef
+    $P1 = new .Undef
+    $P2 = new .Integer
+    $P3 = new .Undef
 
     setattribute self, "source", $P1
     setattribute self, "pos", $P2
Index: lib/pge2past.g
===================================================================
--- lib/pge2past.g	(revision 12134)
+++ lib/pge2past.g	(working copy)
@@ -30,7 +30,7 @@
 
 PunieGrammar::lineseq: result(.) = {
     .local pmc newchildren
-    newchildren = new PerlArray
+    newchildren = new .ResizablePMCArray
     # Ask the child node for its result
     .local pmc child
     $I0 = defined node["PunieGrammar::line"]
@@ -62,7 +62,7 @@
 
 PunieGrammar::line: result(.) = {
     .local pmc newchildren
-    newchildren = new PerlArray
+    newchildren = new .ResizablePMCArray
 
     .local pmc iter
     iter = new Iterator, node    # setup iterator for node
@@ -91,7 +91,7 @@
 PunieGrammar::expr: result(.) = {
     .local pmc result
     .local pmc children
-    children = new PerlArray
+    children = new .ResizablePMCArray
     result = new 'PAST::Exp'
     $P1 = node.get_hash()
     $P0 = new Iterator, $P1    # setup iterator for node
@@ -116,7 +116,7 @@
 PunieGrammar::gprint: result(.) = {
     .local pmc result
     .local pmc children
-    children = new PerlArray
+    children = new .ResizablePMCArray
     result = new 'PAST::Op'
     $P1 = node.get_hash()
     $P0 = new Iterator, $P1    # setup iterator for node
@@ -142,7 +142,7 @@
 PunieGrammar::cond: result(.) = {
     .local pmc result
     .local pmc children
-    children = new PerlArray
+    children = new .ResizablePMCArray
     result = new 'PAST::Op'
     $P1 = node.get_hash()
     .local pmc iter
@@ -175,7 +175,7 @@
     unless $I0 goto err_no_oexpr
     $P1 = node["PunieGrammar::oexpr"]
     .local pmc children
-    children = new PerlArray
+    children = new .ResizablePMCArray
     $P0 = new Iterator, $P1    # setup iterator for node
     set $P0, 0 # reset iterator, begin at start
   iter_loop:
@@ -208,7 +208,7 @@
 
 PunieGrammar::oexpr: result(.) = {
     .local pmc newchildren
-    newchildren = new PerlArray
+    newchildren = new .ResizablePMCArray
 
     .local pmc iter
     $P1 = node.get_hash()
@@ -342,7 +342,7 @@
     .local string type
     type = node["type"]
     .local pmc newchildren
-    newchildren = new PerlArray
+    newchildren = new .ResizablePMCArray
     $P1 = node.get_array()
     .local pmc iter
     iter = new Iterator, $P1    # setup iterator for node
@@ -369,7 +369,7 @@
 expr: term(.) = {
     .local pmc result
     .local pmc children
-    children = new PerlArray
+    children = new .ResizablePMCArray
     $P1 = node.get_hash()
     $P0 = new Iterator, $P1    # setup iterator for node
     set $P0, 0 # reset iterator, begin at start