Perl: объединение списков с чередрванием?

foreach (@lstKeys)
{
    $hash{$_}=$lstValues[$i++];
}

?

Вот шит, кажется, такая возможность есть только в Perl 6 - это оператор zip. Такая нужная вещь, казалось бы, а догадались добавить её в Perl только сейчас!

Можно даже красивее сделать но тут, вроде, симметричные массивы должны быть:

my %hash = ();

@hash{@lstKeys} = @lstValues;

IMHO это слишком сложный код для такой элементарной вещи. Я уж не говорю о том, что переменную i инициализировать нужно.
Сравните со следующим однострочным кодом:
%hshUid=zip((uidNumber,gidNumber,gecos,homeDirectory,loginShell),split /:/);

Кстати... не факт, что здесь не нужно сначала создавать временные массивы @attrUid=(uidNumber,gidNumber,gecos,homeDirectory,loginShell) и @valUid=split /:/ ...

> %hshUid=zip((uidNumber,gidNumber,gecos,homeDirectory,loginShell),split /:/);

my %hshUid = ();

@hshUid{ 'uidNumber', 'gidNumber', 'gecos', 'homeDirectory', 'loginShell' } = ( split( /:/ ) )[1..6];

ы?

:-))))

#!/usr/bin/perl
my @lstKeys=('first','second','third','fourth');
my @lstValues=('Jan','Feb','Mar','Apr');
my %hash=();
@hash{@lstKeys}=(@lstValues);
print $hash{second};

Работает!!! Дайте же мне крепко пожать Вашу мужественную лапу, спасибо огромное, Anoxemian! :-))

Кстати, а почему это работает? Я не понимаю, что такое @hash{} ????

> Я не понимаю, что такое @hash{}

Cрез хэша.