Help for this page

Select Code to Download


  1. or download this
    @h{ /\w$/g } += $_ while <DATA>;
  2. or download this
    $h{ (split)[1] } += $_ while <DATA>;