Re: Mixing Up a Text File

[I0]

in reply to Mixing Up a Text File

while( <> ){
    $j = int rand @array;
    @array[$.,$j] = ($array[$j],$_);
}
print @array;