sub processInterfaceData
{
  my ($h, $nh) = @_;
  print "$key\n"
   foreach my $key (keys %{$h});
}