foreach my $indhost( keys %HOSTLIST ){

  foreach my $hname( keys %$indhost ){

    foreach my $user ( @{ $hname } ){
  
      #host
      print $hname
      #user
      print $user    
    }
  }
}