Ok, the other comments obviously misunderstood what your point was, but don't worry, it's still trivial:

my %hash = ( 'Anim' => 'Animation',
             ...
             'Test' => 'Whatever');
my $key = 'Anim';

print $key if $hash{$key};
[download]

Regards, octo
--
GED/CC d-- s:- a--- C++(+++) UL+++ P++++$ L++>++++ E--- W+++@ N o? K? w-- O- M-(+) V? !PS !PE !Y PGP+(++) t-- 5 X+ R+(+++) tv+(++) b++@ DI+() D+ G++ e->+++ h!++ r+(++) y+