Help for this page
#!/usr/bin/perl -w use strict; ... push @{$outer{$line[0]}}, join ' ', @line[1 .. $#line]; } }
#!/usr/bin/perl -w use strict; ... $handler{$1}->(split /\s+/); } }