#!/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