Select Code to Download

foreach $pair(@list){
my ($x,$y) = split /\//, $pair, 2;
print $y," is paired with ", $x, "\n";
...
56 is paired with 34
01 is paired with 45