# ... jede menge Code ...

unless(ref($knoten)){
    print "Es ist ein Skalar!\n";
}
elsif(ref($knoten) eq 'ARRAY'){
    print "Es ist ein Array!\n";
}