#!/usr/bin/perl
use strict;
use warnings;
use 5.010;

my @inventar;
for (my $ord = 97; $ord <= 122; $ord ++) {
	push @inventar,[chr($ord).'.dat','ERL'];
}
foreach my $ref (
	['0.dat','ERL'],
	@inventar,
	['neu.dat','CH']
) {
	say $ref->[0].' -> '.$ref->[1];
}