$dbh=DBI->connect($datasource,$user,$pass,{AutoCommit=> 1}) or die "Can't Connect";
$sth=$dbh->prepare("SELECT * FROM Videos WHERE $FieldN LIKE ?") or die;
$sth->execute($SearchCrit);
my @template_data;
while (my $hashref = $sth->select_hashref()) {
   push @template_data, $hashref;
}

$tmpl->param( stuff => \@template_data);