Select Code to Download

foreach my $key ( keys %ifSpeeds )
{
...
        $counter = 1;
    }
}

use List::MoreUtils qw(natatime);
my $it = natatime(9, (keys %ifSpeeds));
while (my @vals = $it->()) {
    print "@vals\n";
}