Select Code to Download

use strict;
use warnings;
...
       select1 => 'Component_1_2',
       select2 => 'Component_2_3',
     ];

>perl 710263.pl
$VAR1 = [
...
          'select2',
          'Component_2_3'
        ];