my @KPI = (10, 20, 30, 40, 50);

for my $i (0 .. $#KPI){
    my $var = $KPI[$i];
    print "line"."$var"."\n";
}