Using grep might make your code more perlish:

print $_,"_",$table{$_},"\n" for grep { $table{$_} eq "A" } keys %tabl
+e;
[download]