my @arr=(1..20);

for(1..200)
{
	$random_position=int(rand($#arr));
	$var=splice(@arr, $random_position, 1);
	push(@arr, $var);
}

foreach (@arr)
{print "$_\n";}