print $_,"\n" for(map{$_ * $_}(1,2,3));