Select Code to Download

$comment{$lineno++} = $_;

push(@lines, { id => $id, line => $_ }); $lineno++;

@lines = sort { $a->{id} <=> $b->{id} } @lines;
for (0..$lineno-1) {
...
    else { my $x = shift(@lines); print $x->{line}; }
}
# @lines should be empty at this point