You could use a while loop instead of a for loop:

    #!/usr/bin/perl -w

    my @array = (11, 14, 19, 20);

    while (@array) {
        print "@array\n";
        my $var = shift @array;
    }
[download]

--
John.