Select Code to Download

#!/usr/bin/perl -w

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

@a = ( );