use strict;
use warnings;
use Data::Dumper;
sub one {
    return undef;
}
sub two {
    my @a = @_;
    print Dumper(\@a);
    return;
}
two(1,2,one(), 3);