my $token = 'text00001';
foreach (lameExcuse()){
    doSomethineWith($token++)}