for ( $i = 1 ; $i <= $#line ; $i++ ) {
    $k = $line[$i];
    for ( $v = 1 ; $v <= $#angel ; $v++ ) {
        $j = $angel[$v];
        if ( $k =~ m/($j)/i ) {
            push ( @a, $v );
        }
        else { push ( @b, $v ); }
    }
}