package MyTie::Array;
...
sub SLICE {
    my( $self, @list ) = @_;
    ...
    return @newlist;
}