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

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

my $match = map {$_->{ident} eq 'bar' ? $_->{name} : ''} @{$test{sup}};
print "'$match'\n";