Example A, rewritten:

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

if ($data->[0]{title} eq 'large') {
    ucase( $data->[0]{title} );
}

print "First title: '$data->[0]{title}'\n";

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

##</code><code>##

eval {
    my $sth = $dbh->prepare_cached( ... );
    $sth->execute;
    my $stuff = $sth->festchall_arrayref({});
    $template->param( selscene => $data );
}; if ($@) {
    # Do some error handling here.
}