# printing a table of sqaures in a non-C-ish way

map { $c=$_**2, print "$_ $c \n"} 1..9


## An even messier version of this same idea
# map { print "$_ @{[$_**2]} \n"} 1..9