#!/usr/local/bin/perl

use Data::Dumper;

# new line at the end of each print, automatically
$\ = "\n";

@x = (1..5);

print pop @x;
print Dumper(\@x);

print pop @x;
print Dumper(\@x);

print pop @x;
print Dumper(\@x);

print pop @x;
print Dumper(\@x);

print pop @x;
print Dumper(\@x);

print pop @x;
print Dumper(\@x);

@x = (1..10);

for $iteration (1..5) {
  my $x_popped = pop @x;
  my $x_shifted = shift @x;

  print qq(on iteration $iteration shifted $x_shifted and popped $x_popped);
}