Select Code to Download

#!/usr/bin/perl -w
my @arr=('a', 'b', 'c');
my @aroa;
push(@aroa, [@arr]);

print"$aroa[0][0]\n";

print"$aroa[0]\n";

print"@$aroa[0]\n";