use warnings;
use strict;

for ( 1 .. 5 ) {
    some();
}

sub some {
    print "Enter a number: \n";
    chomp( my $num1 = <STDIN> );

    my $num2 = 2;
    my $result;

    $result = $num1 + $num2;

    print "result is: $result\n";
}