Select Code to Download

Can't use string ("source") as a HASH ref while "strict refs" in use a
+t duck
        line 77 (#1)
    (F) Only hard references are allowed by "strict refs".  Symbolic
...

Uncaught exception from user code:
        Can't use string ("source") as a HASH ref while "strict refs" 
+in use at duck line 77.

        foreach my $var ( keys %elem ) {
            if ( $var->{id} == $form->{"id"} ) {

#!/usr/bin/perl --
use strict; use warnings; use Data::Dump qw/ dd /;
my $form = {
...
    }
}
__END__