if ( uc($str) eq uc($something) ) { 
  # ... 
}
##</code><code>##

$str = uc($str); # force uppercase