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