#!/usr/bin/env perl -l

use strict;
use warnings;

my $shift = 'E';
my @x = \ (qw{A B C D});
test_shift(@x);

sub test_shift {
    print ${+shift};
    print ${shift()};
    print ${shift @_};
    print ${shift(@_)};
    print ${shift};
}