local $" = "\n";
my @array = ( 1 .. 5 );
while( @array ) {
    my $item = shift @array;
    print "Removed value $item from the front of \@array\n";
}
print "Deleted array content:\n@a\n";