while (<RECORDS>) {
          chomp;
          @values = split /\t/, $_;
          foreach $v (@values) {
            $$v++;
          }
        }

##</code><code>##

for (a..z) {$in {$_}=int rand(100) };
foreach (keys %in){
    print "in $_ is $in{$_}\n";
    $$out{$_}=$in{$_}
}
foreach (keys %$out){print "out $_ is $$out{$_}\n"}

##</code><code>##

foreach $field(@fieldList){
     $$field = $in{'$field'};
}