foreach my $mac ( keys %CODES ) {
  printf " %s:  Host = %s, IP = %s\n",
         $mac,
         $CODES{$mac}->{'host'},
         $CODES{$mac}->{'ip'};
}