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

##</code><code>##

Elements :
 1 2

##</code><code>##

sub one{
	&two shift, shift;
}