my %users = %{user_paths()}; foreach my $user (keys %users) { if (-e "$users{$user}/MY_FILE") { open (FH2, "<$users{$user}/MY_FILE") or die "could not open $users{$user}/MY_FILE $!"; while (my $line = ) { print $line; } } }