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

##</code><code>##

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

##</code><code>##

$| += 1;
foreach my $divider (2..9){
    print "Divider $divider\n";
  N: foreach $n (1111..9999){
      next if $n =~ /0\d+/;
      @n = split //,$n;
      my $count  = 0;
      my @pairs;
      my %pairs;
      foreach (qw(01 02 13 23)){
	  my($p,$q) = split //;
	  my $num = $n[$p].$n[$q];
	  push @pairs, $num;
	  next N if defined $pairs{$num};
	  $pairs{$num} = 1;
	  $count++ if $num % $divider  == 0;
      }
      print join " " => @pairs,"\n" if $count == 4;
  }
}