Select Code to Download

my $filename = "xyz";
for (1..10) {
  print qq[Filename is "$filename"\n];
  $filename = &newname($filename,1);
}

sub newname() {

...
    return $filename;
  }
}