Help for this page
my %logo = ( DNI => 'logo1', ... # ... print my $logo = $logo{ join '_', sort $name =~ /(DNI|JRN|SNI)/g };