for my $i (1 .. 15) {
    if(my $cnt = $i==5 ... $i==10) {
    	print "$i - $cnt\n";
    }
}