Help for this page
@lines = <IN>; shuffle(@lines); ... # or if 'shuffle' returns the shuffled list print OUT shuffle(<IN>);
($lines[param('from')], $lines[param('to')]) = ($lines[param('to')], $lines[param('from')]);