Select Code to Download

__DATA__
ABCD
EFGH

$VAR1 = {
           '0' => [
...
                   'GH',
                 ]
        };

#!/usr/bin/perl -w
use strict;
...
 print Dumper \%hash;
 #Then do sth with the %hash