#!/usr/bin/perl

@users=<>;

for($x=0;$x<@users;$x++){
   $users[$x]=~s/\r*\n*//gis;
}

srand(time());
for($x=0;$x<@users;$x++){
   $users[$x]=~s/\r*\n*//gis;
   $i=int(rand()*@users);

#print "Swapping: $users[$i] $users[$x]: $i $x\n";
   $a=$users[$i];
   $users[$i]=$users[$x];
   $users[$x]=$a;
}

for($x=0;$x<@users;$x++){
   print "$users[$x]\n";
}