#!/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

Situation1:
$VAR1 = [
          {
            'Zucker' => 70,
            'Eier' => 3,
            'Mehl' => 100
          },
          {
            'Zucker' => 50,
            'Eier' => 4,
            'Mehl' => 100
          }
        ];
----------
Situation2:
$VAR1 = \{
            'Zucker' => 70,
            'Eier' => 3,
            'Mehl' => 100
          };
$VAR2 = \{
            'Zucker' => 50,
            'Eier' => 4,
            'Mehl' => 100
          };