package RefArray;


use strict;
use warnings;

sub TIESCALAR{ return bless [], shift }

sub FETCH{ my $self = shift }

# die Zuweisung an die Referenz ist hier in push
sub STORE{
    my $self = shift;
    push @$self, @_;
}

1;#################################
package main;

use strict;
use warnings;

#Scalar wird gebunden
tie my $arr, "RefArray";

# jede Zuweiung macht eiin push
$arr = "Otto";
$arr = "Hanz";

$, = "\n";
print $arr->[0], $arr->[1]; # Otto Hanz