for my $mac (keys %HASH){
  for my $value (keys %{$HASH{$mac}}){
  }
}