my($Count) = scalar @sausages;