Array Perl

  1. Home
  2. Perl
  3. Array
  4. Discard words until we see the A marker
#!/usr/bin/perl
use warnings;
use strict;
my @lines = ("C", "B", "A", "E", "D");
while (my $line = shift @lines) {
    last if $line eq 'A';
}
print "@lines";