use warnings;
use strict;
sub AddNumbers {
numberList($first_number, $second_number, $third_number, $fourth_number, $fifth_number, $sixth_number) = @_;
$add $first_number + $second_number + $third_number + $fourth_number + $fifth_number + $sixth_number;
}
print "Equals to: &add /n"
####
Scalar found where operator expected at temp.pl line 7, near "$add $first_number"
(Missing operator before $first_number?)
Global symbol "$first_number" requires explicit package name at temp.pl line 6.
Global symbol "$second_number" requires explicit package name at temp.pl line 6.
Global symbol "$third_number" requires explicit package name at temp.pl line 6.
Global symbol "$fourth_number" requires explicit package name at temp.pl line 6.
Global symbol "$fifth_number" requires explicit package name at temp.pl line 6.
Global symbol "$sixth_number" requires explicit package name at temp.pl line 6.
Global symbol "$add" requires explicit package name at temp.pl line 7.
syntax error at temp.pl line 7, near "$add $first_number "
Global symbol "$first_number" requires explicit package name at temp.pl line 7.
Global symbol "$second_number" requires explicit package name at temp.pl line 7.
Global symbol "$third_number" requires explicit package name at temp.pl line 7.
Global symbol "$fourth_number" requires explicit package name at temp.pl line 7.
Global symbol "$fifth_number" requires explicit package name at temp.pl line 7.
Global symbol "$sixth_number" requires explicit package name at temp.pl line 7.
Execution of temp.pl aborted due to compilation errors.
####
Scalar found where operator expected at temp.pl line 7, near "$add $first_number"
####
Global symbol "something" requires explicit package name at
####
print "Equals to: &add /n"
####
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";