Loading DB routines from perl5db.pl version 1.28
Editor support available.

Enter h or `h h' for help, or `man perldebug' for more help.

main::(/usr/local/nagios/create_maps.pl:11):
11:     my  $dbserver1 = "sxnue710";
  DB<1> c 94
main::(/usr/local/nagios/create_maps.pl:94):
94:       print FILE "}\n";
  DB<2> n
main::(/usr/local/nagios/create_maps.pl:95):
95:       foreach  $hostname (sort keys  %hosts)
96:       {
  DB<2> p $hostname
wbnue034
  DB<3> n
main::(/usr/local/nagios/create_maps.pl:97):
97:         print  $hostname."\n";
  DB<3> p $hostname
HASH(0x85df58c)
  DB<4>