#!/usr/bin/perl
use strict;
use CGI;

## stuff snipped for brevity

my($firstchar) = substr($name,0,1);
if($vartocheck =~ /$firstchar/i) {
   ## do stuff;
}

## stuff snipped for brevity

exit;