#!/usr/bin/perl

use warnings;
use strict;

my @array = (1 .. 15); 
my @result = ();
my $i;

foreach $i (@array) { 
    if ($i > 5 && $i < 12) {
        push(@result, $i);
    }
} 
foreach $i (@result) {
    print "$i\n";
}