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

[0330 nobodyさん 2009/10/05(月) 07:59:45 ID:???]

>>328
こんなんとかはどう？

eval join q{}, map "\$$_ = \$arg{$_};", qw(a b c);