#!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}
          ;
}