use strict;
use warnings;
my %data = ( FLOATER => 'N', BLAH=>2);
warn $data{'FLOATER'};
print $data{'FLOATER'}."<-----------\n";
warn 'ok' if $data{'FLOATER'} eq 'Y';