my $min = ( $x < $min ) ? $x : $min;

##</code><code>##

#! perl -slw
use strict;

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

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

##</code><code>##

my $var;
if( <cond1> ) {
    $var =  <somevalue>;
}
elsif( <cond2> ) {
    $var = <someothervalue>;
}
else {
    $var = <default>;
}

##</code><code>##

my $var;
if( <cond1> ) {
    $var =  <somevalue>;
    doSomething;
}
elsif( <cond2> ) {
    $var = <someothervalue>;
    doSomethingElse;
}
else {
    $var = <default>;
}

##</code><code>##

my $var = <cond1> ? <somevalue>
        : <cond2> ? <someothervalue>
        : <default>;

doSomething     if $var == <somevalue>;
doSomethingElse if $var == <someothervalue>;

##</code><code>##

my $var = ......;

##</code><code>##

my $var;

if( ...  ) {
    $var =  ...;
}
elseif( ... ) {
    $var = ...;
}
else {
   $var = ...;
}