sub somesub { my $first = shift; my @second = @_; my $third = pop @second; }