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