Help for this page

Select Code to Download


  1. or download this
    use 5.12.0;
use warnings;

...
bbb ccc 456
bbb ddd 567
ccc ddd 678
  2. or download this
    my %HoA;
push @{ $HoA{ ( split )[0] } }, ( split )[2] while <DATA>;