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

##</code><code>##

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

##</code><code>##

print"$aroa[0]\n";

##</code><code>##

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