in reply to PM and references

for(my $i=0;$i<=$top;$i++)
{
    $DATA=$reg->[$I];

[download]
you are using $i and $I, which are different variables .. are you sure you want this?
Rata

In Section Seekers of Perl Wisdom