print join ", ", @array;
foreach my $item (@array) { ... }

print join ", ", @{ $Host_Records{ $host }->{USER}->{ $user } };
foreach my $item (?????????) { ... }