my @value = @$value; foreach my $v (@value)