Select Code to Download

  sub nextrec {
    local *_ = $_[0];                      
...
    @_{@fields} = unpack $layout, $_{rec}; 
    "FTRL" eq $_{_id} ? 0 : $_{rec};       
  }

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

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

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

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