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

print "enter 6 numbers followed by spaces:";
my @nums = split(/\s/,<STDIN>);
die "Input Error" if @nums !=6;

print sum(@nums),"\n";
print max(@nums),"\n";

sub sum
{
   my @nums = @_;
   my $sum =0;
   
   foreach my $num (@nums)
   {
     $sum+= $num;
   }
   return ($sum);
}

sub max
{
    my @nums = @_;
    
    my $max = -9999999999;
    
    foreach my $num (@nums)
    {
       if ($num>$max)
       {
          $max = $num;
       }
    }
    return ($max);
}