use strict;
use warnings;
my $fh;
unless (open($fh,"</path/list.txt")) {
  die "Cannot open file: $!\n";
}
my @number_array = ();
while (<$fh>) {
  push @number_array, $_;
}
for (my $i=0;$i<$#number_array;$i++) {
  for (my $j=$i+1;$j<=$#number_array;$j++) {
    print $number_array[$i], "\t", $number_array[$j], "\n";
  }
}