#!/usr/bin/perl

use strict;
use warnings;

my %hash = ( ebene1 => { Beispiel => 1, Hallo => 1 } );

for my $key ( qw(Beispiel Hallo Welt) ) {
  print "Ast $key existiert ";
  print "nicht" if not exists $hash{ebene1}{$key};
  print "\n";
}