use Data::Dumper;
$Data::Dumper::Sortkeys = 1;
use strict;
use warnings;
use Tie::Array;
use base qw(Tie::StdArray);



tie my @arr, 'main';
@arr = qw(foo bar baz);

# Extrahiere die Instanz
tied(@arr)->rm(0); # remove alias delete

print Dumper \@arr;

sub rm{
    my $self = shift;
    my $idx  = shift;
    splice @$self, $idx, 1;
}