http://www.perlmonks.org?node_id=935734


in reply to code optimization

I'll enter a while loop, split each line to two numbers, then do the division and push the result to an array, then you can use List::Util qw/min/ on this array...

In Section Seekers of Perl Wisdom