#!/usr/bin/perl
use warnings;

sub shift { }

my @array = qw( 1 2 3 );

shift @array;