Select Code to Download

use warnings;
use strict;
...
/(.+?)\|(.+)/ and push @{$hash{$2}}, $1 for values %data;

print Dumper \%hash;

$VAR1 = {
          'FLOWER|11+' => [
...
                                '1065',
                                '4449',
...