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

[0359 355 2009/10/11(日) 01:39:42 ID:???]

自決しました。
スライス使うだけですた。
二行にはなりますが、以下で出来ますた。
my %map = ();
@map{@cols} = @list;