Help me to find where I am wrong
package Exception;
sub excep{
my ($ref_numbers,$ref_exceptions,$number,$n) = @_;
my @excepts;
if ($number == 0)
{
return (\@excepts);
}
else{
my $i;
for($i=0;$i<$n;$i++)
{
my $a=0;
if($i != $$ref_execptions[$number])
{
$excepts[$a] = $i;
$a++;
} else {
$a++;
}
}
$number--;
&excep(\@excepts,$ref_exceptions,$number,$n);
}
}
use Exception;
my @array = (1,5,6,9,2);
my @toexcept = (5,6);
my $number = 2;
my $n = 5;
my @left = &excep(\@array,\@toexcept,$number,$n);