my( $head, @tail ) = @array;