It looks like you want something like:

print map {
    ( my $x = $_ ) =~ s/\s+//g;
    length( $x ) < 15 ? () : $x;
    } @{ $data1{ $datafile } };
[download]