#!/usr/bin/perl

use strict;
use warnings;

local $\="\n";
for my $count (0..4) {
    print +([ sub { my $n=shift; "Whoa, it's $n" },
              sub { my $n=shift; "Then it becomes $n" },
              sub { my $n=shift; "Then, $n" },
              sub { my $n=shift; "Only to further increase to $n" },
              sub { my $n=shift; "And eventualy stop at $n" } ]->[$count]
           || sub {} )->($count);
}

__END__