Help for this page
__DATA__ ABCD EFGH
$VAR1 = { '0' => [ ... 'GH', ] };
#!/usr/bin/perl -w use strict; ... print Dumper \%hash; #Then do sth with the %hash