Select Code to Download

$ perl -Mstrict -Mwarnings -Mautodie -le '
    use Tie::File;
...

    untie @input_records;
'

$ cat pm_1054101_input.txt
key1  key2  ndnjfgdsjfjjkjjfjf...
...
key43 key21 sdkjfhdghdbgbd
key1  key3  jujdejnsduhffnjj
key2  key2  jhzezhdjjf...

$ cat pm_1054101_output.txt
key1  key2  ndnjfgdsjfjjkjjfjf...
...
key1  key3  jujdejnsduhffnjj
key2  key2  jhzezhdjjf...
key43 key21 sdkjfhdghdbgbd

$ ls -l pm_1054101_*
-rw-r--r--  1 ken  staff  159 14 Sep 22:41 pm_1054101_input.txt
-rw-r--r--  1 ken  staff  159 14 Sep 23:04 pm_1054101_output.txt

$ perl -Mstrict -Mwarnings -Mautodie -le '
    use Tie::File;
...

    untie @input_records;
'