#!/usr/bin/perl

use warnings;
use strict;

my @lines;
while (<>) {
  my $nr = scalar(@lines);
  my $swap = int(rand($nr));
  $lines[$nr] = $lines[$swap];
  $lines[$swap] = $_;
}

print @lines;