Check for All Uses of `my $foo = shift` in Subs

[davorg]

Replace my $foo = shift with subroutine signatures where Perl version supports it (5.36+).