$arraylenght = lenght($guests);
for($i = 0 ; i < $arraylenght ; $i++)
{
if($guest->{'ident'} =~ /^1[014689]*7[014689]*5[014689]*3[014689]*2[014689]*$/)
            {
                 mywrite($guest);  #my print function
                  
            }
}