~$ perl test_write.pl Can't use string ("1") as a symbol ref while "strict refs" in use at test_write.pl line 11.