### Array
# Indexes of 0-4 automatically assigned by Perl!
my @kpi = qw/10 20 30 40/;
print "line$kpi[$_]\n" for 0..4;

### Hash
my %kpi;
# Populating via hash slice to save typing
@kpi{0..4} = qw/10 20 30 40 50/;
print "line$kpi{$_}\n" for 0..4;