my print

1
2
my $a = [1,2,3];
print $a[0];