225 2198 374 315 420 1149 57 2611 #### open(INP, $ARGV[0]); $minimumAmount=100; while () { if (/(\d+) (\d+)/) { if ($minimumAmount > ($1/$2)) { $minimumAmount=($1/$2); $amount=$1; $weight=$2; } } } close(INP); print "$amount\t$weight";