sub zero { return (0, 0) }
print +(zero() == 2) ? "scalar\n" : "list\n";
my @a = (0, 1);
my @b = (1, 0);
my @c = (0, 2 , 1);
print +(@a == @b) ? "same length\n" : "not\n";
print +(@a == @c) ? "same length\n" : "not\n";