Just to elaborate on perliff's reply, you also must declare  $verse as a my variable in the final  foreach loop (see Foreach Loops in perlsyn):

foreach my $verse (sort keys %Scripts)
{
    print "$verse => $Scripts{$verse}\n";
}
[download]