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

##</code><code>##


$arraylenght = lenght($guests);
for($i = 0 ; i < $arraylenght ; $i++)
{
}

##</code><code>##

$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
                  
            }
}