&pluralize($items);
print "$items item$plur listed";

sub pluralize{
my $var = shift(@_);
if($var==1){$plur=""} else {$plur="s"}
}