my $new_retid = $retid . '_001' x $retid !~ /_\d{3}$/;