>perl -wMstrict -le
"use constant AYCHES => 1 .. 100;
 use vars map '@H' . $_, AYCHES;
 ;;
 for(AYCHES) {
   no strict 'refs';
   @{'H' . $_} = (0 .. $_);
   }
 ;;
 print qq{'$H50[50]' '$H100[-1]'};
"
'50' '100'