@lines = <IN>;
shuffle(@lines);
print OUT @lines;

# or if 'shuffle' returns the shuffled list

print OUT shuffle(<IN>);

##</code><code>##

($lines[param('from')], $lines[param('to')]) =
   ($lines[param('to')], $lines[param('from')]);