my @answers;
while (my $line = <DATA>){
  for my $re (@res){
    my @results;
    if (@results = $line =~ /$re/){
      push @answers, ["@results"];

##</code><code>##

    }
  }
}

##</code><code>##

   # ...
  for my $re (@res){
    my @results;
    push @answers, \ @results if @results = $line =~ $re;
  }
  # ...