for($i=7;$i<=1777;$i=$i+8) {
         $macroman{$i} = @liste[$i];
         print $macroman{$i};
}

use strict;
use warnings;

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

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

@liste[$i]

$liste[$i]

Scalar value @liste[$i] better written as $liste[$i]

use Data::Dumper;

my @array = (1..100);

# speichere das 2., 7., 10., 14. Element aus @array
# in @tmp
my @tmp = @array[1,6,9,13]; 

print Dumper \@tmp;

use diagnostics;