my (@array, $value) = shift;

##</code><code>##

my (@array, $value) = @_;