How to write perl fixed range inner loop

Hello. I want the program to complete and form the following file
, but the perl program cannot be written. Can you be busy

?

id times
1 2
21
3 3
results in
id start
11 10
1 11 20
21 10
3 1 10
3 11 20
3 21 30

Aug.25,2021
MySQL Query : SELECT * FROM `codeshelper`.`v9_news` WHERE status=99 AND catid='6' ORDER BY rand() LIMIT 5
MySQL Error : Disk full (/tmp/#sql-temptable-64f5-1bc01f2-2fa1a.MAI); waiting for someone to free some space... (errno: 28 "No space left on device")
MySQL Errno : 1021
Message : Disk full (/tmp/#sql-temptable-64f5-1bc01f2-2fa1a.MAI); waiting for someone to free some space... (errno: 28 "No space left on device")
Need Help?