$ perlcritic --brutal --verbose=9 ....


[Freenode::DeprecatedFeatures] autoderef is deprecated at line 2, near '$Person->shift( $foo );'.  (Severity: 4)

[Freenode::DeprecatedFeatures] autoderef is deprecated at line 4, near '$Person->shift( $hash->{shift} );'.  (Severity: 4)