Select Code to Download

foreach (@list)

while (<>)

push @{ $ipURL{$ip} }, $url;

my ($ip, $url) = (split /,/)[7, 31];

perl -wE 'for (1..10000) {say join ",", map int rand 1000, 1..35}' > i
+nput

#!/usr/bin/perl
use strict;
...
    slow => sub { slow($FH) },
    fast => sub { fast($FH) },
});

1..1
ok 1 - same
       Rate slow fast
slow 20.7/s   -- -26%
fast 27.9/s  35%   --