use Lexical::Alias 'alias_a';

my @array;
{
  my $t;
  alias_a @{sub {\@_}->($t, $t)}, @array;
}