# create and fool around with an array
my @rray = ();
$rray[0] = "foo";
push @rray, "bar";
print $rray[1], "\n";
# prints "bar"

# create and fool around with an arrayref
my $arrayref = [];
$arrayref->[0] = "foo";
push @$arrayref, "bar";
print $arrayref->[1], "\n";
#prints "bar"