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";
        
    }
}
[download]

....

after a little help, with hash of the Articuno said: "this guy need a database simple, or not, like http://www.sqlite.org/ "