Select Code to Download

use Date::Manip;
use POSIX;
...
   splice @{$data[0]}, $i+1, 0, @gap;
   splice @{$data[1]}, $i+1, 0, map {0} @gap;
}