Help for this page

Select Code to Download


  1. or download this
    %res = ( map { ( $_ => undef ) } grep length > 4, <DATA> ), warn keys 
+%res;
  2. or download this
    warn keys %{ ( map { ( $_ => undef ) } grep length > 4, <DATA> ) };