在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