Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
...
    print "\$param0 is not tied\n";
  }
}

Select or download this

using @_ directly
$_[0] is tied to <TiedObject=ARRAY(0x814ed48)>

after $param0 = shift @_
$param0 is not tied