foreach my $i ( reverse 0..$#result1) {
    my $elem = $result1[$i];
    if( $elem =~ /(\d+.\d+.\d+.\d+","\d+","\w+.\w+.\w+)/m ){
        splice @result,$i,1 if $elem =~ /learned/;
        push(@result2, $1); 
    }
}