foreach my $key (keys %int) {
  print "int $key \n";
  print " ip address ",$int{$key}{ip}, "\n";
}