open(FIN,"<$ARGV[0]") or die "Input file: $!";
chomp(@data = <FIN>);
close(FIN);

open(FOUT,">$ARGV[0]-randomized") or die "Output file: $!";
while(@data) {
    print FOUT splice(@data,rand(@data),1)."\n";
}
close(FOUT);