my $flag;
$flag++ if(!exists $hash{$_}) foreach(@liste);
print "There are $flag elements in \@liste which have no key in \%hash\n";

my $blubb = $blah[1]; # Array da []
my $blobb = $bluh{1}; # Hash da {}

# Besonders Hilfreich wird das ganze bei referenzen

my $return = $ref1->{hashkey}->[1];

#Perl6
print %hash;
print %hash{oneKey};
print %hash{thiskey,andthatkey,andthiskey};

my %var = (0 => "wert aus hash");
my @var = ("wert aus array");
my $var = "wert aus skalar";

print join "\n", $var,$var{0}, $var[0],"\n";

array = [ "ich", "bin", "ein", "array" ]
hash = { "ich" => "bin", "ein" => "hash" }
hash2 = { :und => "ich", :bin => "ein", :noch => "tollerer", :hash => "mit", :symbolen => "punkt" }

puts array[0], hash["ich"], hash2[:bin]

for my $k (@liste) {
   print "$k ist enthalten\n" if grep $k, keys %hash;
}

for item in one:
    if not item in two:
        print item