[company.csv]
company,address
foo,NY
bar,CA

[employee.csv]
name,company
Joe,foo
Sue,bar

##</code><code>##

#!perl -w
use strict;
use AnyData;
my $company  = adTie('CSV','company.csv');
my $employee = adTie('CSV','employee.csv');
while (my $person = each %$employee) {
    printf "%s : %s :%s\n"
          , $person->{name}
          , $person->{company}
          , $company->{$person->{company}}->{address}
          ;
}