Select Code to Download

[ 
  [1, 2]  
  [4, 8]
]

[[2,8]
 [1,4]]

$| += 1;
foreach my $divider (2..9){
...
      print join " " => @pairs,"\n" if $count == 4;
  }
}