use strict;
my %hash=qw(1001 choochoo 1002 candycane 1003 sockpuppet);
print $hash{'1003'};
__END__
sockpuppet