#!/usr/bin/perl -w
use strict;

# Declare before use:
sub newsub($$);
# Use:
# print "The sum is" . newsub(2, 7) . "\n";
#newsub(2, 7);
my $x=2; my $y=7;
newsub($x, $y);
my @arr=(3, 5);
newsub(@arr, @arr);
# Define:
sub newsub($$) {
    my $x=shift(@_); my $y=shift(@_);
    print "The sum is: " . ($x + $y) . "\n";
#    return $x + $y;
}

