my $reg=shift;
my $top=@$reg;
print "START OF\n";
for(my $i=0;$i<=$top;$i++)
[download]

Use Perl iteration instead of a C style loop:

for my $data (@$reg)
{
    ...
}
[download]