是否可以在 Perl foreach 循环中分配两个变量？

是否可以在 Perl foreach 循环中将数组中的相同数据分配给两个变量？

我正在使用 Perl 5，我想我在 Perl 6 中遇到了一些东西。

像这样的东西：

my $var1;
my $var2;

foreach $var1,$var2 (@array){...}

它不是 Perl 5 核心语言，但是列表::实用程序 https://metacpan.org/pod/List::Util has a pairs应该足够接近的函数（以及许多其他pair...函数可能更方便，具体取决于您在循环内执行的操作）：

#!/usr/bin/env perl    

use strict;
use warnings;
use 5.010;

use List::Util 'pairs';

my @list = qw(a 1 b 2 c 3);

for my $pair (pairs @list) {
  my ($first, $second) = @$pair;
  say "$first => $second";
}

Output:

a => 1
b => 2
c => 3