sub shuffle
{
	# Move each element to a random location
	my $arrayref = shift;
	
	my $temp;
	for (my $i = 0; $i < scalar @$arrayref; $i++)
	{
		my $r = rand( scalar @$arrayref);
		$temp = $arrayref->[$r];
		$arrayref->[$r] = $arrayref->[$i];
		$arrayref->[$i] = $temp;
	}
}