%hash =
  map { $_, $INPUT{$_} } # schluessel/wertpaare zurueckgeben
  grep { /^PM_/ } # gibt liste aller keys zurueck, die mit PM_ beginnen
  keys %INPUT;