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