my $index = ( $integer >= 0 )
            ? 2 * $index
            : -2 * $index - 1;