foreach $guest(@people)
        {
            if($guest->{'ident'} =~ /^1[014689]*7[014689]*5[014689]*3[014689]*2[014689]*$/)
            {
                 mywrite($guest);  #my print function
                  
            }
        }