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