Select Code to Download

#!/usr/local/bin/perl -w
use strict;
...
$hash{ TESTVALUE3() }   = 'OK';

print Dumper( \%hash );

:!./test.pl
$VAR1 = {
          '2' => 'OK',
          'TESTVALUE1' => 'OK',
          '3' => 'OK'
        };