my $Count = scalar @sausages;

##</code><code>##

my($Count) = scalar @sausages;