use v5.12.0;
use warnings;

package Somename;
use Data::Dump qw/pp dd/;


foo(1,2,3,4,5);

sub foo {
    my $one = shift;
    my $two = shift;
    my $three = shift;
    my $four = shift;
    my $five = shift;

    pp $four,$five;
}

##</code><code>##

(4, 5)