I did not understand your indention, you need to use tags in your messages ;)
i was try to understand your hash and i stoped here
#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
my %hash = (
'record' => {
'employees' => {
'foo' => 'lorn',
'bar' => 'perlmonks',
'quux' => 'lornlab',
}
}
);
my $employees = $hash{record}->{employees};
foreach my $key ( keys %{ $employees } ) {
if ( $key =~ /foo/ ) {
print "$key - " , $employees->{$key}, "\n";
}
if ( $key =~ /f\w{2}/ ) {
print "$key - " , $employees->{$key}, "\n";
}
}
....
after a little help, with hash of the Articuno said: "this guy need a database simple, or not, like http://www.sqlite.org/ "