sub nextrec {
    local *_ = $_[0];                      
    $_{rec} = <$_{_fh}>;                   
    return( (\%_)->errmsg($!) ) if $!;     
    @_{@fields} = unpack $layout, $_{rec}; 
    "FTRL" eq $_{_id} ? 0 : $_{rec};       
  }

##</code><code>##

  @_{@fields} = unpack $layout, $_{rec};

##</code><code>##

  $obj->{@fields} = unpack $layout, $_{rec};

##</code><code>##

  @{$obj}{@fields} = unpack $layout, $_{rec};

##</code><code>##

  my @vals = unpack $layout, $_{rec}; 
  for my $ndx (0..$#fields) {
     $obj->{$fields[$ndx]} = $vals[$ndx];
  }