use strict;
use warnings;

sub FirstSub {
    my ($Param) = @_;

    sub add1 {my ($arg)=@_; return $arg+1;};
    sub add2 {my ($arg)=@_; return $arg+2;};
    sub add3 {my ($arg)=@_; return $arg+3;};
    sub add4 {my ($arg)=@_; return $arg+4;};
    sub add5 {my ($arg)=@_; return $arg+5;};

    $Param = add1($Param);
    $Param = add2($Param);
    $Param = add3($Param);
    $Param = add4($Param);
    $Param = add5($Param);

    return $Param;
}

print FirstSub(10);