my %data = @_;
warn $data{'FLOATER'};
print $data{'FLOATER'}."<-----------";
if( $data{'FLOATER'} eq 'Y' ){