&

gistfile1.pl

#!/usr/bin/env perl

use strict;
use warnings;
use Carp::Assert;
use feature ':5.14';

my @list = qw/hoge fuga timpo/;
sub osicco {
    assert @_ ~~ @list;
}

sub unko {
    &osicco;
}

unko @list;