$ ./perl -we 'my *foo; print *foo{NAME}' Segmentation fault