my %values_for_h => 1 => [1, 0, 9], 3 => [2, 1, 10], 5 => [3, 0, 11], 7 => [4, 1, 11], 10 => [5, 0, 5], 12 => [6, 1 6], 14 => [7, 0, 7], 16 => [8, 1, 8] ); if (exists $values_for_h{$h}) { $j = $h + $values_for_h{$h}->[0]; $p = $values_for_h{$h}->[1]; $v = $values_for_h{$h}->[2]; }