Select Code to Download

use Data::Dumper;

...
$num{$alias}{save} = 2;
$val{$file}[3][$num{$alias}{save}] = 1;
print Dumper(\%val);

$VAR1 = {
          'afile' => [
...
                       ]
                     ]
        };