Select Code to Download

3-5-19
3-9-19
...
39-33-19
39-37-19
39-1-19

master_lock_combo(19);

...
@x=grep{$_[0]%4==$_%4}0..39;for $i(@x){for
(map{($_+2)%40}@x){print"$i-$_-$_[0]\n"}}
}