just to add to others mastery advice:

"...i want to define it as the current line of ..."

do like so:

...
  while(defined(my $trained = <trained>)){
     chomp $trained;
     while(defined(my $predict = <predict>)){
     chomp $predict;
      ...
    }
 ...
  }
[download]