1#!/usr/bin/env perl
2use strict;
3use warnings;
4use List::Util qw(shuffle);
5
6my @lines = shuffle <>;
7print @lines;