sub quantize
{
     my ($quantity, $singular, $plural) = @_;
     return (1==$quantity)? $singular : $plural;
}

$count = 2;

print "$count @{[quantize($count,'cat','cats')]}\n";