Select Code to Download

@headers = qw(one two three);
@rows = (
...
    print @headers;
    print @$_ foreach @rows;
}

@headers = qw(one two three);
@rows = (
...
        $s
    } @$_ foreach \@headers, @rows;
}