#!/usr/bin/perl -w

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

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