Select Code to Download

use strict;
use warnings;
...
    printf( "%10s %15s %6s\n", $srv, $_, $h{$srv}{$_} );
  }
}

__OUTPUT__
   11BT801    10.197.28.38      1
...
   12GT601     10.197.5.82      2
   12GT601    10.200.10.10      1
   12GT601     10.200.5.40      2