Select Code to Download

        if ($_ eq $key){
                     ...

use Data::Dumper;
use strict;
...

print Dumper(\@act_vars);

$VAR1 = {
          '3a' => 'Three',
...
          'Four',
          '7b'
        ];