#!/usr/bin/perl
use strict;
use warnings;

my $one;
my $two;
my $sum;

print "Enter character: ";
$one = <STDIN>;
chomp($one); # remove new line

# there are no switch statements in perl
# does this make you feel better?
# not me either.

SWITCH: {
    if ($one eq 'a') { print "code 1\n"; last SWITCH; }
    if ($one eq 'b') { print "code 2\n"; last SWITCH; }
    if ($one eq 'c') { print "code 3\n"; last SWITCH; }
    print "code 4\n";
}