Select Code to Download

use strict; use warnings;

...
   $last = $columns[0];
   print;
}

use strict; use warnings;
my %seen;
...
   $seen{$columns[0]} = 1;
   print;
}