my @array2 = @array;   # @array:  a => b, c => d 
shift @array2;         # @array2: b => c, d => e

# beide Arrays sollen eine gradzahlige Anzahl von Elementen haben => eines muss um 1 erweitert werden
if (@array % 2) {
  push @array, undef;
} else {
  push @array2, undef;
}
my %hash = (@array,@array2);  # und fertig ist der Hash