I get no warnings from this code below:

use strict;
use warnings;
my @array;
my $x = shift @array;
my $y = shift @array;
[download]