eval "\$$arrayname{\$key} = 1";

while (<>) { eval; print $@; }
