Select Code to Download

sub OpenFF {

...
    }
    return(%hash);
}

foo.txt
-------
ID    NAME1    NAME2    AGE
...
3    peter    pan    62
4    madre    theresa    108
5    banana    split    2

#!/usr/bin/perl -w
use strict;

...
foreach (1..5) {
    print "$foo{'NAME2'}{$_}\n";
}

The keys are:
NAME1    NAME2    ID    AGE
Row 3 is:
...
pan
theresa
split