Select Code to Download

Can't use an undefined value as an ARRAY reference at ./example.pl lin
+e 37.

$hash{blah} = 1;

$user = {
          'val' => 1
        };

#!/usr/bin/perl -w
package MyTie1;
...
}