if (/regexp/) {
 no strict 'refs';
 my $i = 1;
 while (defined ${$i}) {
   ...
 }
}