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