Help for this page

Select Code to Download

Select or download this

my %logo = (
    DNI => 'logo1',
...
# ...

print my $logo = $logo{ join '_', sort $name =~ /(DNI|JRN|SNI)/g };