くだすれPerl（超初心者用）3

[0356 nobodyさん 2009/10/11(日) 01:28:52 ID:???]

my %map = map{ $cols[$_] => $list[$_]} 0..$#cols;

こんな感じ？