#! perl -slw
use strict;

for ( 1 .. 3 ) {
    print do{
        if( $_ == 1 ) { 'one' }
        elsif( $_ == 2 ) { 'two' }
        else{ 'three' }
    };

    print $_ == 1 ? 'one'
        : $_ == 2 ? 'two'
        : 'three';
}