for my $cnt (0 .. 3) {
     my $t=<DATA>;
     print $t;
  }