if ( grep fc $str eq fc $_, keys %data ) { # case-insensitive exists

##</code><code>##

$data{fc$_} = delete $data{$_} for keys %data;