Select Code to Download

#!/usr/bin/perl
use strict;
...
are_both_zero(0,-5);
are_both_zero(0,0);
are_both_zero(3,-3);

In the array (3, -5), at least one element is not zero.
In the array (3, 0), at least one element is not zero.
In the array (0, -5), at least one element is not zero.
In the array (0, 0), both elements are zero.
In the array (3, -3), both elements are zero.