shift ARRAY
    shift   Shifts the first value of the array off and returns it,
            shortening the array by 1 and moving everything down. If t
+here
            are no elements in the array, returns the undefined value.
+ If
            ARRAY is omitted, shifts the @_ array within the lexical s
+cope
            of subroutines and formats, and the @ARGV array at file sc
+opes
            or within the lexical scopes established by the "eval ''",
            "BEGIN {}", "INIT {}", "CHECK {}", and "END {}" constructs
+.
[download]

If you execute this

use strict;
use warnings;
one(1,2,3,4);
sub one{
    &two (shift, shift);
}
sub two
{
    print "Elements : \n @_ \n";
}
[download]

you would get

Elements :
 1 2
[download]

Which means that it's same as passing the first two elements of the list the sub-routine one has received.Though I was not able to compile the code

sub one{
    &two shift, shift;
}
[download]

which is your case.Provide the some context of your snippet that would help everyone to learn.

---

The world is so big for any individual to conquer

Though I was not able to compile the code

sub one{
    &two shift, shift;
}
[download]

That's a syntax error. Subroutine invocations with & require parens.

Drop the ampersand and move the sub two definition up:

use strict;
use warnings;
one(1,2,3,4);
sub two {
    print "Elements : \n @_ \n";
}
sub one {
    two shift, shift;
}
[download]

To resolve the bareword two as a subroutine call (in two shift, shift), the compiler needs to have seen the sub declaration already. Alternative:

use strict;
use warnings;
sub two;      # forward declaration
one(1,2,3,4);
sub one {
    two shift, shift;
}
sub two {
    print "Elements : \n @_ \n";
}
[download]

--shmem

_($_=" "x(1<<5)."?\n".q·/)Oo.  G°\        /
                              /\_¯/(q    /
----------------------------  \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}

Hi,

A subroutine's arguments come in via the special @_ array. The shift without an argument defaults to @_.

for example,

sub emp { 
  $name = shift; 
  $id = shift; 
  print "name, $name, id $id"; 
} 
&emp('abc', 10); 

The shift without an argument defaults to @_.

except in main scope (outside a sub) where shift operates on @ARGV by default. Consider:

perl -e "print shift" wibble
[download]

Prints:

wibble
[download]

---

Perl is environmentally friendly - it saves trees

[1] perl, does of course, do one or the other first.