Use a lookup (check that I transcribed the numbers correctly):

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 } };
[download]