my @file = <>;
  my $i = @file; 
  while( $i-- ) {
    my $j = int rand(1+$i); 
    @file[$i, $j] = @file[$j, $i];
  }
  print @file;