Help for this page
use Data::Dumper; ... } die Dumper(%hash);
foreach my $line (@lines) { my $key = shift @$line; ... push @{$hash{$key}}, @$line; } }
www.com | www.net | www.org
No recent polls found
