warn keys %{ ( map { ( $_ => undef ) } grep length > 4, <DATA> ) };