in reply to map question

It looks like you want something like:
print map { ( my $x = $_ ) =~ s/\s+//g; length( $x ) < 15 ? () : $x; } @{ $data1{ $datafile } };