Select Code to Download

use List::Util 'shuffle';

my @bag = shuffle qw( A B C D E );
...
  }
  print "$time @embargoed\n";
}