Specifically,

for(my $i=0; $i<5; $i++) {
    delete $parsedfiles[$i];
}
[download]

should be

splice(@parsedfiles, 0, 5);
[download]