#!/usr/bin/perl

use strict; use warnings; use Data::Dumper;

my @array = ();
push @array, {'Mehl'=>100, 'Zucker'=>70, 'Eier'=>3};
push @array, {'Mehl'=>300, 'Zucker'=>80, 'Eier'=>2};
push @array, {'Mehl'=>100, 'Zucker'=>50, 'Eier'=>4};

# Wie kann man die folgenden beiden Zeilen...
my @a = grep { $_->{'Mehl'} == 100 } @array;
print "Situation1:\n", Dumper \@a;  # -> richtiges Ergebnis, Array

print "----------\n";

# ...auch in einer Zeile schreiben, so daß dasselbe Ergebnis herauskommt?
print "Situation2:\n", Dumper \grep { $_->{'Mehl'} == 100 } @array;  # -> falsches Ergebnis, kein Array mehr