Select Code to Download

my @lines = split /^/, $records;
shift @lines; # remove first line
print @lines; # print the rest

my @lines = split /^/, $records;
print @lines[1..$#lines]; # print line 1 onwards removing line 0