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