#!/usr/local/bin/perl
use strict;
use warnings;





use Data::Dumper;

my @a= ();
warn Dumper @a;
shift @a;
warn Dumper @a;
shift @a;
warn Dumper @a;
shift @a;
warn Dumper @a;