Select Code to Download

use strict;
use warnings;
...
   my ($subnet, $xfer) = @{$subnet_xfers{$_}};
   print("$subnet: $xfer\n");
}

10.0.0.0/29: 555555
10.2.1.0/29: 666666
10.6.2.8/29: 333333