while (my ($i, $num) = each @numbers) { push @{ $output[$i] }, $num/$sum; }