mysub(1, 2, 3);

sub mysub {
  print "@_\n";
  my $x = shift;
  print "@_\n";
  print "$x\n";
}
#Outputs:
#1 2 3
#2 3
#1