#! perl
use strict;
use warnings;

sub foo
{
    my @x = @_;
    die "Incorrect number of arguments$!" if @x < 3 || @x > 4;
    print "$_\n" for @x;
    print "\n";
}

sub bar ($$$;$)
{
    my @y = @_;
    print "$_\n" for @y;
    print "\n";
}

##</code><code>##

my  @args = (2, 3, 5, 7);
foo(@args);

##</code><code>##

bar(@args);

##</code><code>##

bar($args[0], $args[1], $args[2], $args[3]);