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