for my $data (@$reg)
{
    ...
}