#!/usr/bin/perl
use strict;
use warnings;

sub are_both_zero
{
        my @array=@_;
        print "In the array (",join(', ',@array),"), ";
        if (!($array[0]+$array[1])) {
                print "both elements are zero.\n";
        } else {
                print "at least one element is not zero.\n";
        }
}

are_both_zero(3,-5);
are_both_zero(3,0);
are_both_zero(0,-5);
are_both_zero(0,0);
are_both_zero(3,-3);