#!/ActivePerl/bin/perl

use 5.014;
use warnings;

sub sayit (@;_);

sayit (1, 2, 3);

my @list = (4, 5, 6);
sayit (@list);

local $_ = 7;

sayit;

my $_ = 8;

sayit;

sub sayit (@;_) {

   my @list = @_;

   if (@list) { say "@list" } else { say "no list" }

}