Select Code to Download

#!usr/perl/bin
use strict;
use warnings;
...
    print "now \$elementindex $elementindex is $file\n";
    $elementindex++;
}

$elementindex 0 is foo.txt
$elementindex 1 is bar.txt
$elementindex 2 is blivitz.txt
...
now $elementindex 1 is addelement.txt
now $elementindex 2 is bar.txt
now $elementindex 3 is blivitz.txt