> print $a && 2001, "(a)\n";
> print $b && 2001, "(b)\n";
> print $c && 2001, "(c)\n";
> print $d && 2001, "(d)\n";
> print $e && 2001, "(e)\n";
> print $f && 2001, "(f)\n";
> print $g && 2001, "(g)\n";
> print $h && 2001, "(h)\n";
> print $i && 2001, "(i)\n";
> print $j && 2001, "(j)\n";
> print $k && 2001, "(k)\n";
> # ダメかなぁ？わらい

間違ってないけどな(´ε｀)
Perlクイズは面白いので読んでみたらどうだろう。

http://www.hyuki.com/pq/

参考：2001/02/14(水)02時17分53秒