Select Code to Download

use warnings;
use strict;
use List::Util qw/shuffle/;
...
one;two;three;four
foo;bar;baz;qux
yellow;red;blue;green

$VAR1 = [
          'one;three;four;two',
          'foo;baz;qux;bar',
          'yellow;blue;green;red'
        ];