sub data {
     my $self = shift;
     my $bar = shift;

     if(@_) {
          $data{$bar} = $self->{FOO};
     }
}