i get Goblal symbol "c1" requires an package name.

$c1 needs to be declared. you could just put my $c1; before your for loop, or do for (my $c1 = 0; ... ){. But you can also rewrite that loop to make it more "perlish" (enter TMTOWTDI -- all of these do the same thing):

foreach my $c1 ( 0.. $#data ){
  print $data[$c1]{value} . "\n";
}
foreach ( 0.. $#data ){
  print $data[$_]{value} . "\n";
}
print $data[$_]{value} . "\n" for 0 .. $#data;
print $_{value} . "\n" for @data;
print map { $_{value} . "\n" } @data;
[download]

Not to mention that if($data{value} eq  "" || null) isn't going to do anything meaningful. It parses out as if ((($data{'value'} eq '') or 'null')). What you would want to do would be to check if it's defined or not.

And given this is just a small smippet out of context I don't even want to get into what horrors of recursive calling could be brought on with that &adduser; line judging from the comment (aside from the fact that you really don't want to call a sub like that (ampersand with no parens) unless you know why you're doing it that way; just call mysub()).