@list = (1,2,3,4);
foreach $val(@list){
print "$val";
}
print "\n";
shuffle(\@list);
foreach $val(@list){
print "$val";
}

open SOURCE, "< cis4cluster.txt";
open OUT, "> shuffled.txt";
while (defined($line = <SOURCE>)) {
chomp $line;
    @field= split(/\t/, $line);
$name = shift(@field);
shuffle(\@field);
print OUT "$name";
foreach $val(@field) {
print OUT "\t$val";
}
print OUT "\n"; 
}

sub 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];
    }
}