#!/usr/bin/perl --
use strict;
use warnings;
sub many { return @_ }
my $one = many( 6 .. 12);
my @all = many( 16 .. 18 );
my (undef, $second) = many( 26 .. 28 );
print "
one $one
all @all
some $second
";
__END__

one 7
all 16 17 18
some 27