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

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

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

EXTRA:
{
  if ($one > 100)
  {
    # exit the code block EXTRA
    # last or next can be used to exit a bare block of code
    last EXTRA;
  }

  $one += 1;
  $one += 2;
  $one += 3;
  $one += 4;
}

print "Result is: $one\n";