Help for this page

Select Code to Download


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