while (<>) {
  if /^((VIS|JIT|MAD)HU2?):/) {
    $found{$1} = [$., $_];
  }
}
for (sort keys %found) {
  print "$_ => @{$found{$_}}\n";
}