my $regex = join '|', map "\Q$_\E", sort {length $columnA <=> length $columnB} keys %dic;

s/\b($regex)\b/$dic{$1}/g;