# map {[chr($ord).'.dat','ERL']} each [97..122]
# als Mehrzeiler:
say $_->[0] . ' -> ' . $_->[1]
  for (
    [ '0.dat', 'ERL' ],
    ( map { [ chr . '.dat', 'ERL' ] } ( 97 .. 122 ) ),
    [ 'neu.dat', 'CH' ]
  );

# als Einzeiler:
say $_->[0] . ' -> ' . $_->[1] for ( [ '0.dat', 'ERL' ], ( map { [ chr . '.dat', 'ERL' ] } ( 97 .. 122 ) ), [ 'neu.dat', 'CH' ] );

__END__
ergibt:
0.dat -> ERL
a.dat -> ERL
b.dat -> ERL
c.dat -> ERL
d.dat -> ERL
e.dat -> ERL
f.dat -> ERL
g.dat -> ERL
h.dat -> ERL
i.dat -> ERL
j.dat -> ERL
k.dat -> ERL
l.dat -> ERL
m.dat -> ERL
n.dat -> ERL
o.dat -> ERL
p.dat -> ERL
q.dat -> ERL
r.dat -> ERL
s.dat -> ERL
t.dat -> ERL
u.dat -> ERL
v.dat -> ERL
w.dat -> ERL
x.dat -> ERL
y.dat -> ERL
z.dat -> ERL
neu.dat -> CH