Select Code to Download

use strict;
use warnings;
...
        print "all are zero\n";
    }
}

 1:40 >perl 1692_SoPW.pl
(0 0 0): all are zero
...
(7): not all are zero

 1:40 >