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