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 );