my $Count = scalar @sausages;