Select Code to Download

use strict;
use warnings;
...
    print "[$first]";
    push @array, $first / 2 if (!($first % 2));
}

[1][2][3][4][1][2][1]

use strict;
use warnings;
...
    print "[$element]";
    push @array, $element / 2 if (!($element % 2));
}