my @string = ('a')x50;
while (shift @string){
  ;
}