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";