sub clear_it {
    my($data) = @_;
    $data = [];
    #@$data = ();
}
my $data = ['a','b'];
&clear_it($data);
print "size = ",($#$data + 1),"\n";