print $_,"_",$table{$_},"\n" for grep { $table{$_} eq "A" } keys %table;