Select Code to Download

my %datahash; 
while (my $line=<DATA>) { 
...
noeq
noval=
noquotes=noquotes

$VAR1 = {
          'datahash' => {
...
                          'type' => 't'
                        }
        };