sub shuffleArray{
        my @p = @_;
        my $k;
        $k = $_ + int(rand(@p - $_)),      
                @p[$_, $k] = @p[$k, $_] for
                0 .. @p - 1;
        @p;
}