shift if ref $_[0] eq "PKG" or $_[0] eq "PKG";