tina@lux:~> perl -wle'
@a = qw(a b c);
@b = @a or die;
@c = @a || die;
print "(@b) (@c)"'
(a b c) (3)