Select Code to Download

c:\@Work\Perl\monks>perl -le
"use warnings;
...
option 2: PB8 AX3 PB7 AX1
option 3: XC8 AX3 AX1 XC2
option 4: XC2 PB8 AX2 PB7 XC8 AX3

my %option = (
  1 => [ \ @acc                ],
...
  my ($ar_input_arrays) = @_;
  return shuffle map { (shuffle @$_)[0,1] } @$ar_input_arrays;
  }