use Data::Alias;
my @array = (
    [1,2],
    [3,4],
    [5,6],
);

foreach my $list (@array) {
   alias my ($first, $second) = @{$list};
   print $first, $second;
}