Select Code to Download

use strict;
use Data::Dumper;
...
73 => 73|RED DOOR|10-14
12537 => 12537|RED DOOR|10-14
2485 => 2485|RED DOOR|10-14

$VAR1 = {
          'FLOWER|11+' => [
...
                            '13044'
                          ]
        };