in parent script

my @bob = qw( 1 9 3 4 5 );
my $vars = {
    cgi          => CGI->new(),
    array_ref    => \@bob
};

$tt->process('main_form.tt', $vars) || die $tt->error(), "\n";

===============================================================
in template (main_form.tt)

[% cgi.scrolling_list({  name   => 'languages',
                         values =>  $array_ref }) %]