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

##</code><code>##

master_lock_combo(19);

sub master_lock_combo
{
#0        1         2         3         4         5
#12345678901234567890123456789012345678901234567890

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