if (lc($b) eq lc($a))
{
  print "do something...\n";
}