my $asArray = sub { @{ $_[0] } };
my $aref = [ 1, 2, 3 ];
print "$_\n" for $aref->$asArray;