お願いします。

sub aaa{
　my $select;
　foreach my $l(sort { $ir{$a} <=> $ir{$b} } keys %ir){
　　$select .= qq|<option value="$count">$l</option>\n|;
　}
　return $select;
}
上記をＣＧＩで動かすと
「Can't use "my $a" in sort comparison at ...」
というエラーがでます。どう改善したらよいのでしょうか...
環境は
windowsXPsp2
ActivPerl 5.8.7
です。