Select Code to Download

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

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