$ cat if-then-else.pl
#!/usr/local/bin/perl

my $letter = "c";

if ($letter eq "a")     {print "1";
}elsif ($letter eq "b") {print "2";
}elsif ($letter eq "c") {print "3";
}