my @identity = qw(identity1 identity2 identity3 identity4);
foreach my $i (1..4) {
    my $identity = shift(@identity);
    #...

##</code><code>##

my @identity = qw(identity1 identity2 identity3 identity4);
foreach my $identity (@identity) {
    #...