%Hidlabels = {3333=>1, 4444=>2, 2222=>3};
$formula =~ s/f(\d+)/$labels{ $Hidlabels{$1} }/g;