Not until Perl 6.

Meanwhile, there are still other ways to do it. Any specific use case in mind?

No. Not in perl 5. But you could do

foreach my $ref ( [ $name, $lastname ] ) {
    my( $x, $y ) = @$ref;
    # do something
}
[download]

Whether that is applicable to your problem would require more context. Where do the values you which to index in pairs come from?

what does @$listname stand for?

No, but you can use a list of references to hashes or arrays that contain multiple values:

my @AoH = (
            { firstname => 'foo', lastname => 'bar' },
            { firstname => 'baz', lastname => 'quux' } );

foreach my $href ( @AoH )
{
    # do something with $href->{firstname} and $href->{lastname}
}
[download]

Not exactly. You can set up that kind of thing with Perl's C-style for loop. Perl style for like you show takes single element at a time from a list.

If you can get several hunks of data into each element of the list, you can define ($x,$y) inside the loop and extract the data:

for ([qw/Joe Blow/], [qw/John Doe/]) {
    my ($x, $y) = @$_;
    # do something
}
[download]

for ('Joe Blow', 'John Doe') {
    my ($x, $y) = split;
    # and so on
}
[download]

The for loop in your example could be written:

{
    my ($x, $y) = ($name, $lastname);
    # do something
}
[download]

C-style for can get very baroque, but that's not encouraged, even in C.

Taking n elements of an array at a time is about the only truly useful purpose to which a C-style for loop in Perl may be put. That said, beware of the last iteration of the loop. If the number of elements in the list divided by the number taken each turn leaves a remainder, the last iteration will come up short and you'll have to test whether the element pointed to by the index is defined or not. For instance 5 elements taken 2 at a time gives 1 element left over in the last time through the loop.

On the other hand, if you don't mind emptying out the array by removing the n elements at a time, then splice will work as well, and as an added bonus, if the final iteration comes up short, splice will simply return fewer elements. If you use them as an array you're fine. Then again, if you need to distinguish them individually, you'll have to test how many splice gave you.

use strict;
use warnings;

my @arr = ('a' .. 'z', 'Z');

# non-destructively
for (my $i = 0; $i < @arr; $i += 2) {
    print "$arr[$i] $arr[$i+1]\n";
}

# destructively
while (my @pair = splice(@arr, 0, 2)) {
    print "@pair\n";
}
[download]

foreach my ($x,$y) (@name,@lastname)
{
  do something
}
[download]

use List::MoreUtils qw(each_array);
...
my $names = each_array(@name, @lastname);
while ( my ($x, $y) = $names->() )
{ 
   do something
}
[download]

What would you want it to do?

1. Iterate on two arrays in paralel:

   @name = qw(fred wilma barney betty);
   @color = qw(black red blonde black);
   for $k (0 .. @name - 1) { print $name[$k] . " - " . $color[$k] . "\n" 
   +}
   # fred - black
   # wilma - red
   # barney - blonde
   # betty - black
   [download]

2. Move a sliding window on an array:

   @name = qw(fred wilma barney betty);
   for $k (0 .. @name - 2) { print $name[$k] . " - " . $name[$k + 1] . "\
   +n" }
   # fred - wilma
   # wilma - barney
   # barney - betty
   [download]

3. Take the elements of the array in twos:

   @name = qw(fred wilma barney betty);
   for $k (0 .. @name/2 - 1) { print $name[2 * $k] . " - " . $name[2 * $k
   + + 1] . "\n" }
   # fred - wilma
   # barney - betty
   [download]

4. Iterate on an array of pairs:

   @data = (["fred", "black"], ["wilma", "red"], ["barney", "blonde"], ["
   +betty", "black"]); 
   @color = qw(black red blonde black); for $rec (@data) { my($name, $col
   +or) = @$rec; print $name . " - " . $color . "\n" }
   # fred - black
   # wilma - red
   # barney - blonde
   # betty - black
   [download]