# Require CPAN module for parsing CSV text files
use Text::CSV;

package MAIN ;
{
 # Store our CSV file name
 my $file = '/ppp.csv';

 # Obtain a file handle for our CSV file, or die upon failure
 open (CSV, '<', $file)
              or die('Unable to open csv file ', $file, "\n");

 # Obtain a Text::CSV object
 my $csv = new Text::CSV;

 # Loop on the lines in the CSV file
 foreach my $line (<CSV>)
   {

   # If the line parses successfully, print
   # otherwise, report the failure
   if ($csv->parse($line))
    {
      # Extract current line's data as an array
      my @data = $csv->fields();

      #print $data[0], "\t", # The name
      #      $data[2], "\n"; # The email address

     sub remove_duplicates(\@)
        {
         my $ar = shift ;
         my %seen;
         for ( my $i = 0; $i <= $#{$ar} ; )
             {
               splice @$ar, --$i, 1
               if $seen{$ar->[$i++]}++;

              }
         }
     remove_duplicates( @data );
     print "@data\n";
  
    }
   else
      {
         print 'Unable to parse CSV line: ', $line, "\n";
      }
   }

# Close file handle
close(CSV);
}


1;
 __END__