Select Code to Download

$ cat file1.txt 
1
...
2
1

#!/usr/bin/perl -w 
use strict;
...
untie @ry2;
untie @ry1;

$ cat out.txt 
1
...
3
2
1