#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;

use Benchmark qw(:all);

my %test = (
    sup     => [
        {
            name            => 'Fooname',
            ident           => 'foo',
        },
        {
            name            => 'barname',
            ident           => 'bar',
        },
    ],
);

print cmpthese(1000_000, {
        'map+grep' => sub { 
			my ($match) = 
			map{$_->{name}}
			grep{$_->{ident}eq'bar'} 
			@{$test{sup}};
		},
        'map list' => sub {
			my ($match) = 
			map{$_->{ident}eq'bar'?($_->{name}):()} 
			@{$test{sup}};
		},
    });


__END__

             Rate map+grep map list
map+grep 529661/s       --      -7%
map list 572410/s       8%       --