Yeah, you probably want

  my ($x, $y, $z) = @shift;