>>400
Perl は型としての二次元配列をサポートしているわけではないので
そういう書き方でやるしかない。頻繁にやる処理ならサブルーチン化
すればいい。

sub get_row(\@$) {
　　my($array, $num) = @_;
　　map $array->[$_][$num], 0..$#{$array};
}

# afkp / bglq / chmr / dins / ejot
print get_row(@arr, $_), "\n" for 0..4;

# gl
print +(get_row @arr, 1)[1,2], "\n";