for ( 1..9 ) {
    
      my $last = "last_name$_";
      my $first = "first_name$_";
      my %h;
      
      if ( length($vars->{$last}) && length($vars->{$last}) ) {
      
        $h{'last_name'} = $vars->{$last};
        $h{'First_name'} = $vars->{$first};
      
      } else {
      
        #  Leave a blank one at the end.
        
        $h{'last_name'} = '';
        $h{'First_name'} = '';
        
        last;
      }
      push ( @reg_array, \%h );
    }