if (substr($title,0,1) eq $layer) {
    # do something...
}

##</code><code>##

if (lc(substr($title,0,1) eq lc($layer)) {
    # do something...
}

##</code><code>##

my $title = $dbrow{Title};