Select Code to Download

my $stmt = "SELECT DISTINCT scene, title  FROM catalog";
my $sth = my $dbh->prepare($stmt) or die ...r";
...

my $data   = $sth->fetchall_arrayref({});
my $template -> param ( selscene => $data );

my $data   = $sth->fetchall_arrayref({});

...
print $data->[1],"\n";    #can I even print it

$template->param(selscene => $data)

<select name="scenes">
   <tmpl_loop name="selscene">
      <option value="<tmpl_var scene>"><tmpl_var title></option>
   </tmpl_loop>
</select>