my @x = map {shift} (@_[0..$x-1]);