Select Code to Download

use strict;
use warnings;
...
}

print Data::Dumper->Dumpxs( [ \ %byIP ], [ qw{ *byIP } ] );

%byIP = (
          '10.172.9.22/24' => [
...
                                 'COMP3:eth2'
                               ]
        );