use strict;
use warnings;
use 5.010;

my @arr = (1, 2, 4);

for (@arr) {
    print "$_: ";

    when (1) {print "1"; continue}
    when ($_ % 2 == 0) {print "divisible by 2"; continue} 
    when ($_ % 4 == 0) {print ", divisible by 4"}

    say "\n------end this iteration";
}