in reply to strict and warnings but no error?

What you did try is the same as writing [10, 20, 30, 40]->[2], except you're using a hash ref instead of an array ref. My code returns 30, yours returns undef, because you didn't supply a hash key "fish".

I think you want map $_->{ext}, values %mime, but I might be mistaken.

_____________________________________________________
Jeff[japhy]Pinyan: Perl, regex, and perl hacker, who'd like a job (NYC-area)
s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;