I've been workin all day on this, lol, hope it suffices..(79 chars)

sub master_lock_combo
{
#        1         2         3         4         5
#2345678901234567890123456789012345678901234567890
for$x(0..9){print join('-',$_[0]%4+$x*4,
($_[0]+2)%4+$_*4,$_[0])."\n" for(0..9)}
}
[download]