shuffle( \@array );

sub shuffle
{
  my $array = shift;

  for ( my $i = 0; $i <= $#array; ++$i )
  {
    my $rand = rand($#array);
    @$array[$i,$rand] = @$array[$rand,$i];
  }
}