for (my $i=0 ; $i<=$#ab_mv ; $i++){ my $diff=$aw_mv[$i] - $ab_mv[$i] ; print "$i -- $aw_mv[$i] -- $ab_mv[$i] diff=$diff \n" ;} if($#aw_mv > $#ab_mv) {print "$#aw_mv -- $aw_mv[$#aw_mv] \n" ;}