#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

# Basis-Liste
my $o = tie my @base, 'Merge';
@base = ('a'..'z');

push @base, 'eins'; # beim ersten push, landet der Wert in den Mitte

print Dumper \@base;

package Merge;

use strict;
use warnings;
use Tie::Array;
use base qw(Tie::StdArray);
use integer;

sub PUSH{
	my $self = shift;
	my $val  = shift;
	my $i = scalar @$self;
	my $offset = $i/2;
	splice @$self, $offset, 0, $val;
}


1;#########################################################################