my @arr = (1..100);
foreach my $i (0..@arr-1) {
   foreach my $j (0..@arr-1) {
      next if $i == $j;
      print "$arr[$i],$arr[$j]\n";
   }
}