Select Code to Download

    $record= $index{$keyName}{$keyValue}[0];
    $fieldValue= $record->{fieldName};
    $fieldValue= $data[$recordNumber]{$fieldName};

    ( $data, $index )= OpenFF( "flatfile.txt", qw(ID AGE) );
    print "People ages 55 are:\n";
    for(  @{ $index{AGE}{55} }  ) {
        print "\t",$_->{NAME},"\n";
    }

    require File::Fields;
    my $staff= File::Fields->new();
...
        }
    }
    $staff->Write( "staff2.txt" );