# test.pl
#!/usr/bin/perl
use strict;
use warnings;
use Spreadsheet::BasicRead;
open( STDERR, ">&STDOUT" );
							
my $xlsx_INFILE =("C:\\Temp\\Test.xlsx"),, 1; #Set-up Files
					
my @csvtemp;
my $ss   = new Spreadsheet::BasicRead($xlsx_INFILE) or die " oops  \n"; #   convert $INFILE to a csv file 
my $name = '';
my $row  = 0;
    while ( my $data = $ss->getNextRow() ) {
					$row++;
					$name = join( ',', @$data );
			push @csvtemp,  $name . "\n" if ( $name ne "" );
}

	my @csvsort;
my %seen;					#   remove any duplicates lines 
foreach (@csvtemp){

			push @csvsort, $_ if !$seen{$_}++ ;
}
   
  print("'@csvtemp'");