「Perl分かってる」と思わせる1行

[0001 nobodyさん 2007/09/14(金) 15:48:56 ID:???]

my %example = %{+shift};