chop() elimina el último carácter de la cadena.
El que deberías usar sería chomp(), que elimina el fin de línea.
Using perl Syntax Highlighting
print "Ingresar Nombre: ";
$nombre=<stdin>;
chomp $nombre;
print "Ingrese año de nacimiento: ";
$ano=<stdin>;
$edad=2009-$ano;
print "Don $nombre. Su edad es $edad.\n";
Coloreado en 0.001 segundos, usando
GeSHi 1.0.8.4
Salida:
Using text Syntax Highlighting
$ perl a.pl
Ingresar Nombre: erv
Ingrese año de nacimiento: 1900
Don erv. Su edad es 109.
Coloreado en 0.000 segundos, usando
GeSHi 1.0.8.4