#0        1         2         3         4         5         6         7
#123456789012345678901234567890123456789012345678901234567890123456789012

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