my $matches = 2;
my $threshold = 8;

my @results = grep {
  $matches <= scalar grep { $_ >= $threshold } @$_[1..$#$_];
} @arr;

foreach(@results) {
  say join ",", @$_;
}