if ( condition ){
    # code
}
elsif ( condition ){
    # code
}
else {
    # default case, in case no conditions match
}

##</code><code>##

#!/usr/bin/perl
#hash.plx
use warnings;
use strict;
my %phnums = ( derrick => '07786255633',
               juan    => '07798685311',
               kevin   => '07740647707',
);

print "Enter a name : ";
my $name = <STDIN>;
chomp ($name);

if ($name =~ /^derrick\b/i) {
    print $phnums{"derrick"};
}
elsif ($name =~ /^juan\b/i) {
         print $phnums{"juan"};
} 
else {
        print $phnums{"kevin"};
}

##</code><code>##

#!/usr/bin/perl
#hash.plx
use warnings;
use strict;
my %phnums = ( derrick => '07786255633',
               juan    => '07798685311',
               kevin   => '07740647707',
);

print "Enter a name : ";
my $name = <STDIN>;
chomp ($name);

if ($name =~ /^derrick\b/i) {
    print $phnums{"derrick"};
}
elsif ($name =~ /^juan\b/i) {
         print $phnums{"juan"};
} 
elsif ($name =~ /^kevin\b/i) { 
        print $phnums{"kevin"};
}
else {
        print "Name not found.";
}

##</code><code>##

s**lil*;  $*=join'',sort split q**;  s;.*;grr; &&s+(.(.)).+$2$1+; $; =
qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)