Shouldn't this also have the same effect?

my @file = <>;
print splice @file, rand @file, 1 while @file;
[download]

____________
Makeshifts last the longest.