First of all, add use strict; to the top of your script. This will enable Perl to warn you that it finds an array (@jnpodb).

Then, read perlop (and perlre) on how to escape things in regular expressions and strings.

You need to escape the @ by quoting it with a backslash:

\@jnpodb
[download]