use strict;

my %ir = (
'kaede' => '大瀬 楓',
'mikitty' => '藤本 美貴',
'maasa' => '須藤 茉麻'
);

foreach my $l (sort { $a cmp $b } keys %ir){
　　print "<option value=\"$l\">$ir{$l}</option>\n";
}

うちではエラー出ず。

で、ちょっと突っ込みを

key で sort 掛けようとしてるんですよね？
なのにデータで sort 書けちゃってますよ？