#!/usr/bin/perl -w

$x = 7;
$y = 2;
sumvars($x, $y);
$x = -3;
sumvars($x, $y);
sumvars($x, 8);

sub sumvars {
   $a1 = $_[0];
   $a2 = $_[1];
   print "The sum is: ", $a1 + $a2, "\n";
}
