By getting the "last" occurrance, I don't know if you want to know the line it's on (as a line number), or the contents of the line. So I'll do both:

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

season to taste.