0. Amber B. was harmed by J.
1. Kim B. was harmed by B F K.
2. Kim W. was harmed by A I J.

##</code><code>##

  for (@name) {
    s/\s+$//;
    my $int = s/^(\d+\.\s+\w+\s+\w).*$/$1\. /;
    say "int is $int"; 
  }

##</code><code>##

  for  (@harm) {
    s/\s+$//;
    my $int = s/^\d+\.\s+(\w.*)$/was harmed by $1\./;
    say "schmint is $int";
  }