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