Select Code to Download

use strict;
use warnings;
...
    push @array, [$var1, $_, $$VAR1{$var1}{$_}] for keys %{$$VAR1{$var
+1}};
}
print map {$_->[0], "\t", $_->[1], "\t", $_->[2], "times \n"} sort {$a
+->[2] <=> $b->[2]} @array;

1.2.3.5 51509   1times
1.2.3.5 17427   1times
1.2.3.5 22331   1times
...
1.2.3.4 27029   5times
1.2.3.5 63961   7times
1.2.3.5 20780   7times