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