for my $line (
    map { ... }
    sort {
    ...
    }
    map {
    ...
    }
    <DATA>) {
    print $line;
}