shoorick

Тривиально, но чтобы самому не забыть:

#!/usr/bin/perl -w

our ($NAME, $COLOR, $SHAPE, $COST) = qw(Apple Red Ball 8);

print "Fruits:\n",
    out(),
    out('Grapefruit'),
    out('Kiwi', 'Brown'),
    out('Pear', 'Yellow', 'Lamp'),
    out('Cucumber', 'Green', 'Spin', 5),
    # Too many arguments
    out('Grape', 'Purple', 'Cluster', 3, 'Isabella');

=head1 FUNCTION

=head2 out

Возвращает сведения о фрукте.
Если каких-то данных не хватает — возвращает значения по умолчанию.

=cut

sub out {
    my @args = ($NAME, $COLOR, $SHAPE, $COST);
    splice @args, 0, scalar @_, @_;
    return join(q{, }, @args) . "\n";
} # sub out

Пишет:

Fruits: Apple, Red, Ball, 8 Grapefruit, Red, Ball, 8 Kiwi, Brown, Ball, 8 Pear, Yellow, Lamp, 8 Cucumber, Green, Spin, 5 Grape, Purple, Cluster, 3, Isabella