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

##</code><code>##

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