Недавно знакомая девушка-программист(и такое бывает) прислала кусочек Perl-кода, который ей напомнил песенку из мультфильма "Розовая пантера". Сейчас поймете почему.

my @param = $r->param();
my %param;
foreach my $param (@param)
{
    $param{$param} = $r->param($param);
}

Никогда! Ни при каких условиях не пишите так! Сначала сломаете глаза при чтении, потом сами запутаетесь при разборе ошибок какой из парамов какой.

Поступило предложение внести косметическое изменение в этот скриптик для придания песенке более веселых ноток.

my @param = $tram->param();
my %param;
foreach my $param (@param)
{
    $param{$param} = $tram->param($param);
}