Select Code to Download

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

my @data = ();

$lines=scalar@data/4;

...
   
    print $items;
}

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