for ( $i = 0; $i < 100; ++$i ) { $array[ $i ] = 2 * $i; } print "Escriba una llave de búsqueda entera "; chomp ( $llave = <STDIN> ); $enc = 0; for ( $i = 0; $i < @array && !$enc; ++$i ) { if ( $array[ $i ] == $llave ) { $index = $i; $enc = 1; } } if ( $enc ) { print "Se encontró $llave en $index \n"; } else { print "$llave not found \n"; }