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