В общем стоит следующая задача, нужно перемешать содержимое двух файлов таким образом, чтобы строки из двух файлов выводились по очереди т.е. первая строка из файла file1, затем вторая строка должна быть первой строкой из файла file2, третья строка должна быть второй строкой из файла file2 и т.д. Также результат работы программы нужно вывести в третий файл file3.

#!/usr/bin/perl
open (file11, "<file1") or die($!);
my %hash1=<file11>;
while (<file11>)
{
chomp;
$hash1{$_}=0;
}
close (file11);
open (file22, "<file2") or die($!);
my %hash2=<file22>;
while (<file22>)
{
chomp;
$hash2{$_}=0;
}
close (file22);
while (eof(file11) and eof(file22))
{
my $line;
my %hash3;
if ($line=readline($hash1{$_}))
{
$hash3{$_}=0;
}
elsif ($line=readline($hash2{$_}))
{
$hash3{$_}=0;
}
elsif ($line=readline($hash1{$_}) and $line=readline($hash2{$_}))
{
next;
}
}
open (out, ">file3") or die($!);
foreach (keys(%hash3))
{
print out "$_\n";
}
close (out);

Помогите новичку понять, что я делаю не так или предложите альтернативные варианты решения данной задачи.

volodin661, Можете немного поподробнее описать работу этой программы, просто если я пишу вот так ничего не работает
#!/usr/bin/perl
open $A, ">file1" or die($!);
open $B, ">file2" or die($!);
open $C, "<file3" or die($!);
my @a1=<$A>;
my @b1=<$B>;
while (readline $_[0])
{
if (readline @a1)
{print $C "@_\n" && push ( @a1 ), shift @a1;}
else
{print $C "@_\n" && push ( @b1 ), shift @b1;}
}
close for $A, $B, $C;

volodin661, а ну кстати я тоже самое писал, только select не использовал (незнал, что есть такая удобная функция для вывода), но вот теперь проблема в том, что не распознаются дескрипторы файлов F1 и F2.

volodin661,
Спасибо большое!!!Всё работает, но всё равно не могу понять почему не работает вот эта версия программы.
!/usr/bin/perl
open (my $file11, "<file1") or die($!);
open (my $file22, "<file2") or die($!);
my $a=1;
my $b=1;
while ($a or $b)
{

if ($a)
{
while (<file11>)
{
if (readline $file11[0]){
chomp;
my $hash1{$_}=0;
last;}
}
}
continue
{
if ($b)
{
while (<file22>)
{
if (readline $file22[0]){
chomp;
my $hash1{$_}=0;
last;}
}
}
}

}
open (out, ">file3") or die($!);
foreach (keys(%hash1))
{
print out "$_\n";
}
close for out, file11, file22;