my @x = ();
my $x = splice @x, 0, 1;