Running and returning a value from a subroutine

[jonniethecodeprince]

Howdy,

I've been trying to do a basic calculation in PERL using a subroutine however i'm confused about a few thing. In the following code what is the signifcants of the list variable "@_"

Secondly, How do I return a value, in this case the Literal, 2 to the perl compiler? At the moment, the code does nothing.

Thanks,

# the justAdd subroutine  CH 13
 
  $first = 1;
  $second = 1;
 
 
sub JustAdd {
  my ($first) = shift(@_);
  my ($second) = shift(@_);
  return($first + $second);
}
 

[numberwhun]

Well, in your code, you haven't called the subroutine to have it run. Try this:

# the justAdd subroutine  CH 13
use strict;
use warnings; 
 
my $first = 1;
my $second = 1;
 
 
sub JustAdd {
  my ($first) = shift(@_);
  my ($second) = shift(@_);
  return($first + $second);
}
 
 
JustAdd($first, $second);