Select Code to Download

use strict;
use warnings;
...
  my $keys = keys %{$ips{$_}}; 
  print "$_: $keys nodes\n"  
}

use strict;
...
foreach ( keys %ips ) { 
  print "$_: $ips{$_} nodes\n"  
}