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