#!/usr/bin/perl

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

my $tt = Template->new;

my @a = (1 .. 10);

$tt->process(\*DATA, { shuffle => sub { shuffle @{$_[0]} },
                       arr => \@a })
  or die $tt->error;

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