Select Code to Download

    for ( my $i = 0 ; $i <= @parts ; $i++ ) {

    for ( my $i = 0 ; $i < @parts ; $i++ ) {

use warnings;
use strict;
...
123;Andrew;54;m;123;AAA
234;John;43;m;234;JJJ
345;Helen;23;w;345;HHH