use warnings;
use strict;
our $KPI0 = 10;
our $KPI1 = 20;
our $KPI2 = 30;
our $KPI3 = 40;
our $KPI4 = 50;
for (my $i = 0; $i < 5; $i++) {
    my $var = "KPI$i";
    no strict 'refs';
    print "line", $$var, "\n";
}

##</code><code>##

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