Как перемешать строки в тестовом файле?

<?php
$lines = file('in.txt');
shuffle($lines);
define('FILE_APPEND', 1);
function file_put_contents($n, $d, $flag = false) {
$mode = ($flag == FILE_APPEND || strtoupper($flag) == 'FILE_APPEND') ? 'a' : 'w';
$f = @fopen($n, $mode);
if ($f === false) {
return 0;
} else {
if (is_array($d)) $d = implode($d);
$bytes_written = fwrite($f, $d);
fclose($f);
return $bytes_written;
}
}
file_put_contents('out.txt', implode('', $lines));
/*echo $lines; echo '<br>'; */
?>

#!/usr/bin/perl

open(F, "keys.txt") or die $!;
@keys = <F>;
close(F);


for ($i = @keys; --$i; ) {
$j = int rand ($i+1);
next if $i == $j;
@keys[$i,$j] = @keys[$j,$i];
}

open(F2, ">keys2.txt") or die $!;
print F2 @keys;
close(F2);