#!/usr/bin/perl

use strict;
my @lines = <>;

while (@lines) {
    my $r = int rand(scalar(@lines));
    print $lines[$r];
    splice(@lines, $r, 1);
}
