مشکل عجیب if در Perl

[sali444]

سلام دوستان.
این برنامه باید مقادیر آرایه های a و b رو با هم مقایسه کنه و مقادیر همسان رو بریزه توی آرایه neo.
مشکل از کجاست؟


@a = qw(BB Ninja an FFF);
@b = qw(ali reza cd an);
@neo = qw();
my $sza = @a;
my $szb = @b;

for($j=0; $j <= $szb; $j++)
{
for($i=0;$i <= $sza;$i++)
{
$c1 = $a[$j];
$c2 = $b[$i];
if($c1==$c2)
{
unshift(@neo,$c2);
print $c1." == ".$c2."\n";
}
}
}
print join("\n",sort @neo);

[sali444]

Help Me please:افسرده:

[BackTrace]

#!/usr/bin/perl
use warnings;

@a = qw(BB Ninja an FFF);
@b = qw(ali reza cd an);
@neo = qw();

my ($j, $i);

for($j=0; $j <= $#b; $j++)
{
for($i=0;$i <= $#a;$i++)
{
$c1 = $a[$j];
$c2 = $b[$i];
if($c1 eq $c2)
{
unshift(@neo,$c2);
print $c1." == ".$c2."\n";
}
}
}
print "neo:\n";
print join("\n",sort @neo) ."\n" ;
این برنامه رو میشه به روش های مختلف نوشت.