#!/usr/bin/perl
sub average {
    my($x) = $_[0]; # Separate assignments
    my($y) = $_[1]; #
    return(($x+$y)/2);
}

sub desaverage {
    (my($x), my($y)) = @_;  # Single destructuring assignment
    return(($x+$y)/2);
}

sub showAverage {
    my($x) = $_[0];
    my($y) = $_[1];
    my($res1) = average($x,$y);
    my($res2) = desaverage($x,$y);
    print "The numbers are $x and $y, their average is $res1 or $res2.\n";
}
    
showAverage(3,5);
showAverage(14,37);