Select Code to Download

use strict;
use warnings;
...
my @indexes = indexes {$_ == $target} @list;
my @values = map {[@list[($_+1)..($_+3)]]} @indexes;
print "@$_\n" foreach @values;

6 7 8
4 3 2