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

 1:40 >