print $some[ 1 > 0 ], q[ ], $some[ 1 < 0 ];