$data{$num} = $line;
見たいにハッシュにぶち込んで、

foreach　my $num (sort( keys %data)){
#$data{$num} の処理
}

にする