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

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

##</code><code>##

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

if ( $data->[1] eq "large" ) {    #something like this or...
   ucase ( $data->[1] );
}

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

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

##</code><code>##

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