my %lookup = (
	1, [  2, 0,  9 ], 
	3, [  5, 1, 10 ],
	5, [  8, 0, 11 ],
	7, [ 11, 1, 12 ],
	10,[ 15, 0,  5 ],
	12,[ 18, 1,  6 ],
	14,[ 21, 0,  7 ],
	16,[ 24, 1,  8 ],
);

my( $j, $p, $v ) = @{ $lookup{ $h } };