Array Perl

  1. Home
  2. Perl
  3. Array
  4. Using shift the get value out of an array
@a = (1 .. 10);
do {
    $v = shift @a;
    print "Current number: $v\n";
} while ($v < 5);