#!/usr/bin/perl

use strict;
use warnings;
use Template;
use List::Util 'shuffle';

no warnings 'once'; # turn off annoying error

$Template::Stash::LIST_OPS->{ shuffle } = sub {
  my $list = shift;
  return [ shuffle @$list ];
};

my $tt = Template->new;

my @a = (1 .. 10);

$tt->process(\*DATA, { arr => \@a })
  or die $tt->error;

__END__
[% arr.join(':') %]
[% arr.shuffle.join(':') %]