Help for this page
$sum += $col5; push @numbers, $col5;
while (my ($i, $num) = each @numbers) { push @{ $output[$i] }, $num/$sum; }