for (my $eu = 0; $eu <= (scalar(@identifier)); $eu++) {