#!/usr/bin/env perl

use v5.38;

use strict;
use warnings;

my @a;

my $proto2 = sub {
    return "@{\@a} 3 4";
};

@a = (1, 2);

print $proto2->(), "\n"; # prints "1 2 3 4"