use strict;
use warnings;


sub AddNumbers {

    my ($first_number, $second_number, $third_number, $fourth_number, $fifth_number, $sixth_number) = @_;
    my $add = $first_number + $second_number + $third_number + $fourth_number + $fifth_number + $sixth_number;

    return $add;

}


my $sum = AddNumbers( 1, 2, 3, 4, 5, 6 );

print "The sum of input numbers equals to: $sum \n";