#!/usr/bin/perl;

use strict;

my %hash = ( partname  => "large widget",
              cata#ofitem => "4321"
           );
	
print $hash{ 'cata#ofitem' };