Help for this page

Select Code to Download


  1. or download this
    use strict; use warnings;
    
    ...
       $last = $columns[0];
       print;
    }
    
  2. or download this
    use strict; use warnings;
    my %seen;
    ...
       $seen{$columns[0]} = 1;
       print;
    }