#!/usr/bin/perl

use strict;
use warnings;
use 5.010;

for (0..4) {
    when (0) { say "Whoa, it's $_" }
    when (1) { say "Then it becomes $_" }
    when (2) { say "Then, $_" }
    when (3) { say "Only to further increase to $_" }
    when (4) { say "And eventualy stop at $_" }
}

__END__