Select Code to Download

use strict;
use warnings;
...
warn $data{'FLOATER'};
print $data{'FLOATER'}."<-----------\n";
warn 'ok' if $data{'FLOATER'} eq 'Y';