Select Code to Download

sub sortHash {

...

  return \@keys;
}

my %hash = (
            '2.2.2.2' => 'nfs,1',
...
            '4.4.4.4' => 'cifs,1',
            '1.1.1.1' => 'cifs,0',
           );

my $array = &sortHash(\%hash);
print Dumper($array);
...
        '3.3.3.3',
        '2.2.2.2',
       ];