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"; 
  }
  for  (@harm) {
    s/\s+$//;
    my $int = s/^\d+\.\s+(\w.*)$/was harmed by $1./;
    say "schmint is $int";
  }
##</code><code>##

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.