my @bes = (1,2,3);
	my %waren = (
	    "plastik" => {nr => 1111,preis => 1000,verf => 'J',},
	    "metall" => {nr => 2222,preis => 2000,verf => 'N',},
	    "holz" => {nr => 3333,preis => 3000,verf => 'J',},
	);

    print "Bestellnummer: ".$bes[1]."\n";

    print "Preis: ".$waren{plastik}{preis}."\n";
    print "Preis: ".$waren{$bes[1]}{preis}."\n";