Current File : //dev/shm/.XPL-UNIX/pps/shuf

#!/usr/bin/env perl

use strict;
use warnings;

use List::Util qw/shuffle/;

my @arr = shuffle <>;

print @arr;