perl references in a while loop

while (0..25) {

$x++;

$d[$t++]=\$x;

until ($x 25) {
lable:
print "hello::","\n";

$in = STDIN;

print ${$d[$in]};

goto lable;
}


}

## now this should print 1 when i type 1
## and 2 when I type 2 at
## and 3 when I type 3 instead it types 25
## for 1 to 25 typed in

## plese help

About Mark

user-pic while (0..25) { $x++; $d[$t++]=\$x; until ($x lable:print "hello","\n"; $in = ; print ${$d[$in]}; goto lable; }} ## why wont this work !!!... ???