sub rmvObjRef { my $package_name = shift; my $param1 = ref( $_[ 0 ] ) || $_[ 0 ]; # If param1 holds the name of the class / package # remove it from the arguments. if ( $param1 eq $package_name ) { shift @_; } return @_; }