Help for this page

Select Code to Download


  1. or download this
    use warnings;
    use strict;
    ...
    close $fh;
    my @data = sort keys %seen;
    print $_,"\n" for @data;