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