#!/usr/bin/perl

use v5.10;
use strict;
use warnings;

sub foo{
    say "Nada!" unless @_;
    say @_ if @_;
}

sub bar{
    &foo;
}

my @rray = (1, 2, 3);

bar(@rray);