sub foo { print "Got args: [@_]\n" }

my @args = (
    [ 'A', 'B', 1 ],
    [ 'C', 'D', 2 ],
);
foreach my $arg_ref (@args) {
    foo(@$arg_ref)
}