use strict;
use warnings;

my $result =
{
  '10.4.20.21' => undef
};

for my $mac (values %{(values %$result)[0] // {}}) {
    print "Mac addr: $mac\n";
}