sub test {
   my ($data) = @_;
   ...
   print($data->{'FLOATER'});  # Need to add "->"
   ...
}

my %data = ...;
test(\%data);