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