#!/usr/bin/perl -w

use strict;

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

print $hash{ 'cata#ofitem' }, "\n";