Каков наилучший способ перетасовать массив в Perl?

Итак, у меня есть файл. Допустим, что это выглядит так (это на самом деле дольше):

1234
2134
3124
4123

Каков наилучший способ перетасовать строки в этом файле?

Ответы

Ответ 1

#!/usr/bin/env perl

use strict;
use warnings;

use List::Util qw/shuffle/;

my @arr = shuffle <>;

print @arr;

Использование:

./script file.txt