% perl -e 'sub foo { return undef; } print foo()->{"fish"}{"head"}'
Can't use an undefined value as a HASH reference at -e line 1.