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";
}