Select Code to Download

$DATA{"VOICE_DIGIT"} = "BASIC_testcase.txt";

#!/usr/bin/perl

...
close(INFH);

print Dumper(\%INI);

$VAR1 = {
          'Voice_Digit' => 'BASIC_testcase.txt'
        };