#!/usr/bin/perl
@ARGV == 0
	or die "syntax: $0 < file\n";
@lines = <>;

while (@lines) {
	$a = int rand(@lines);
	print splice @lines, $a, 1;
}