Shuffle everything but the first element

shuffle-stuff

$ perl shuffle-stuff
1
4
5
8
10
3
2
6
7
9

$ cat shuffle-stuff 
use 5.010;
use strict;
use warnings;

use List::Util qw(shuffle);

my @things = 1..10;
@things = ($things[0], shuffle(@things[1..@things-1]));

for my $t (@things) {
    say $t;
}