#
#
# Programmieren mit Perl s. 98

$n = 3;
printf ("Ich habe %d Hund%s.\n", $n, ($n == 1) ? "" : "e" );