# Subroutine to jumble the data
sub jumble
{
        for (1..50)
        {
                my $endpoint = int(rand(scalar @dataArray -1));
                if ($endpoint % 2){$endpoint++}
                my (@tempArray) = (@dataArray[$endpoint..(scalar @dataArray-1)]);
                push @tempArray,(@dataArray[0..$endpoint-1]);
                @dataArray = @tempArray;
        }
}