use Text::CSV_XS qw(csv);
my @sig;

print "Enter file name: \n";
my $file = <STDIN>;
chomp $file;

my $csv = Text::CSV_XS->new({binary => 1});
open (INPUT, $file) || die("Could not find $file"); 
while (my $line = <INPUT>)
## Pushing values from csv into the array
{
	push @sig, <INPUT>, $_;

for (my $i; ($i<=scalar @sig); $i++){
    for (my $j=($i+1); ($j<=scalar@sig); $j++){
		print "@sig[$j]\n";

	
    }
}

close;

}