#!/usr/sbin/perl -w

use strict;
...
if (/^\s+1/) {
     @info = split(' ', $_, 9999);

     $my_x = $info[4] + 0;
     $my_y = $info[5] + 30;

     for($i = '1'; $i <= $info[2]; $i++) {
          print ("$my_x $my_y $info[($i + 8)]\n");
          $my_y = $my_y + 30;	
     }
}
...