Select Code to Download

use Data::Dumper;
open (my $infile, "<", "Input.txt") || die $!;
...
    print join(", ", map { "$_->[0]=$_->[1]" } @combinations), "\n";
    # print Dumper(\@combinations);
}