$data[$i] = (); ##

##

$_ = undef for @data;

##

##

@data = ();

##

##

for (@data) {
    @$_ = ();
}