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