1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
#!/usr/bin/perl -w

use strict;

my @eagstim = ('airx6','solventx6','MverbRedx6','MverbYellowx6','McardRedx6','McardYellowx6');

   # fisher_yates_shuffle( \@array ) :
    # generate a random permutation of @array in place
sub fisher_yates_shuffle {
    my $array = shift;
    my $i;
    for ($i = @$array; --$i; ) {
	my $j = int rand ($i+1);
	next if $i == $j;
	@$array[$i,$j] = @$array[$j,$i];
    }
}

fisher_yates_shuffle( \@eagstim);

print "PAAx4 @eagstim[0..2] PAAx4 @eagstim[3..5] PAAx4\n";