Select Code to Download

($endstore[$ctrend][0], $endstore[$ctrend][1],
 $endstore[$ctrend][2], $endstore[$ctrend][3],
 $endstore[$ctrend][4]) = @arr;

@{$endstore[$ctrend]}[0..3] = @arr[0..3];

$endstore[$ctrend] = [ @arr ];

push @endstore, [ @arr ];

while (my @arr = $sth2->fetchrow_array() ) {
    push @endstore, [ @arr ];
...
    .            "Field 3: $field3  Field 4: $field4  "
    .            "Field 5: $field5\n";
}