#!/usr/bin/perl 

use strict;
use warnings;

sub sum {
   my @args = (9, 9);
   print "The numbers to be added are: @args\n";
   return $args[0] + $args[1], "\n";
}   

print "The sum is: ", sum(), "\n";