my @numbers = split(/\s+/, <>); while(<>) { last if ($_ == 0); last if ($_ >= 1000001); last if ($_ eq ''); push (@numbers, $_); } shift @numbers; my @sorted = sort {$a <=> $b} @numbers; foreach(@sorted){ print $_; }