The error is because you are declaring the variable $verse and inside the foreach loop. This cannot be seen outside. So declare it where you declare %Scripts etc. Also there is an error in your print statement. Here is the correct statement.

    print "$verse => $Scripts{$verse}\n";
[download]

You need these "{}" instead of "()".

perliff