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