在Perl中混洗数组的最佳方式是什么？

Question

所以我有一个文件。比方说，它看起来像这样（它实际上是更长的时间）：

1234 
2134 
3124 
4123 

什么是打乱该文件中的行的最好方法？

Answer 1

#!/usr/bin/env perl 

use strict; 
use warnings; 

use List::Util qw/shuffle/; 

my @arr = shuffle <>; 

print @arr; 

用法：

./script file.txt