Select Code to Download

#!/usr/bin/perl -w
use strict;
...
   }
 }
}

%seen = ();
 @uniq = ();
...
       $seen{$item} = 1;
       push (@uniq, $item);
    }