for(keys %category) {
  print "$category{$_}\n" if /\Q$variable\E/i;
}