Select Code to Download

use warnings;
use strict;
...
    no strict 'refs';
    print "line", $$var, "\n";
}

use strict;
use warnings;
...
for (my $i = 0; $i < @KPI; $i++) {
    print "line", $KPI[$i], "\n";
}