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]

Or stated another way ... arn't hashes great?

  while (<>) {
    /^(.+)\:/ ;         # Capture Server Name
    $hash{$1} = $_ ;    # Create Hash Key if found
  } 

  foreach $server (sort keys %hash) {
    print "$hash{$server}\n" ;
  }
[download]

Have fun,
mslattery