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