while (<>) {
	s/[\r\n]//g;
	$data[$.] = $_;
}

srand();

for ( $i = 1; $i <= $.; $i++ ) {
	&shuffle( $i );
}

for ( $i = 1; $i <= $.; $i++ ) {
	printf( "%s\n", $data[$i] );
}

sub shuffle
{
	$num = int( rand( $. )) + 1;

	$tmp = $data[$_[0]];
	$data[$_[0]] = $data[$num];
	$data[$num] = $tmp;
}

exit;