my $new_retid = ($retid =~ /_\d{3}\z/ ? $retid : $retid . "_001");