#!/usr/bin/perl -w
my @array=(1,2,4,8,16,32,64,128);
my @wert_1=grep {
    my $a=$array[$_];
    my $sum;
    $sum+=$_ for split //, $a;
    print "\$sum=$sum\n";
    $sum %2;
  }
  0..$#array;

print "@wert_1\n";
my @wert_2=@array[@wert_1];
print "@wert_2\n";