use strict;
use warnings;

my @liste = ("a".."h");
my %macroman = ();

foreach my $i (0..7) {
          $macroman{$i} = $liste[$i];
          print $macroman{$i};
}