sub pushOnRef {
        # Geht das nicht besser?
        my $self = shift;
        my $ref = shift;
        my $val = shift;
        my @temp = @{$ref};
        push(@temp, $val);
        $ref = \@temp;
        return $ref;
    }