#!/usr/bin/perl

@a=<>;
for(@a) {
    my $a=rand($#a+1);
    ($a[$a],$_) = ($_,$a[$a]);
}

print @a;