>>540
http://perldoc.jp/docs/perl/5.12.1/perlfunc.pod#item_map_BLOCK_LIST_map

my @pi = map $_ / $y, @x;