foreach my $file (@find) { print "file: $file\n"; open (LOOKUP, ") { ($name, $id) = (split m{\t})[3, 4]; #print "id: $id\n"; #$data{$file} = {$id => $refName}; $data{$file}{$id} = $name; } } close (LOOKUP); for $file ( keys %data ) { print "$file: "; for $role ( keys %{ $data{$file} } ) { print "$id=$data{$file}{$id} "; } print "\n"; }