TCL string comparison with -nocase

set componentList [list Hello]
foreach component $componentList {
   if {[regexp -nocase -- $component HELLO]} {
    puts "$component == HELLO"
   } else {
     puts "$component != HELLO"
   }
 
}