my @array = (1..15); 

my @result = grep {$_ > 5 && $_ < 12}@array; 

print join (", ", @result);