#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
my $var = {'one','two','red','blue'}->{'fish'};
print Dumper($var);

# wanting this
# $var->{'one'}->{'fish'}
# $var->{'two'}->{'fish'}
# etc

##</code><code>##

my $mime = {
    'Web Page'          => { icon => 'webdoc.png',
	                         ext  => ['htm','html','shtml'],
                           },

    'PHP Web Page'      => { icon => 'webdoc.png',
                             ext  => ['php'],
	                       },

    'Perl'              => { icon => 'script.png',
                             ext  => ['cgi','pm','pl'],
                           },
};