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

my %foo = OpenFF('foo.txt')
	or die("Couldn't parse foo.txt, $!\n");

print "The keys are:\n";
print join("\t",keys %foo)."\n";

print "Row 3 is:\n";
foreach (qw'ID	NAME1	NAME2	AGE') {
	print "$foo{$_}{'3'}\t";
}

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