{ local $" = " "; print "@arr'; }
print "@{[@arr]}";
print "@{[map{"$_"}@arr]}";
print $arr[-$_-1] for reverse 0..$#arr;