use strict; use warnings;
use 5.10.1;
use Lowu;
my $result = immarray(
+{ name => 'bob', id => '200' },
+{ name => 'joe', id => '400' },
+{ name => 'sam', id => '600' },
+{ name => 'amy', id => '800' },
)->first(sub {
$_->{id} > 500
}) or die 'No employees with ID > 500';
my $person = $result->inflate;
say "Employee ".ucfirst($person->name)." has ID ".$person->id;