use warnings;
use strict;

    use Algorithm::Numerical::Shuffle qw /shuffle/;

    my @shuffled = shuffle (1, 2, 3, 4, 5, 6, 7);

    #my $in_situ = [qw /one two three four five six/];
    #shuffle $in_situ;

print @shuffled;