my $i="";
my $t="";
my @data="";

##</code><code>##

my @data = ();

##</code><code>##

$lines=scalar@data/4;

for ($t=1; $t<=$lines; $t++) {

for ($i=1; $i<=4; $i++) {

    $items=shift(@data);
   
    print $items;
}

##</code><code>##

use warnings;    # flags many questionable constructs
use diagnostics; # makes error messages much more understandable