use strict;
use warnings;

my %Hidlabels = ( '3333' => 1, '4444' => 2, '2222' => 3 );
my $str = 'f3333_4444_2222';

$str =~ s/f(\d+)/$Hidlabels{$1}/g;
print $str;