$bobscats=2;
$billscats=1;
printf "Bob has %s\n", catstat($bobscats);
printf "Bill has %s\n", catstat($billscats);

sub catstat
{
  my($count)=@_;
  sprintf "%d %s", $count, $count>1?'cats':'cat';
}