#!/usr/bin/perl -w

# Strict
use strict;
use warnings;

# Main program
my @a = (1..5);
while (my $a = shift @a) {
    print "Deleted value: $a\n";
}

##</code><code>##

@a = ( );