Perl - seleccionar opción

Hola de nuevo!
En siguiente programa consiste en que se escoja una serie de preguntas que se encuentran en el archivo "pregunt.txt", de manera aleatoria, y dar la oportunidad de que se seleccione una solucion (ej, 1,2,3)...trato de que cuando seleccione la correcta, el programa le devuelva "SI"...mas sólo lo he conseguido a medias, es decir, en este ejemplo una vez que sale la pregunta 1 y se reponde con 1,se muestra "SI",pero a partir de aquí ya todas las preguntas mantinen la misma respuesta (1) como correcta, es decir, mostrando "SI" al contestar 1...

open (DATA,"pregunt.txt");
@lines=<DATA>
for $j (1..5) {
do {
$sol=int(rand 5)+1;
} while $used[$sol]++;
print $lines[$sol]++;
$respuesta[$sol]=<STDIN>
if ($respuesta [1]== 1){
print "SI\n";
}
}
}
No sé si conseguí explicarme.Agradezco de antemano cualquier sugerencia.