use strict;
use warnings;

my %data;

# Replace this with real code to generate %data.
%data = (
    foo1 => [
        '1 - 201 - 229',
        '2 - 201 - 229',
        '3 - 201 - 229',
    ],

    foo2 => [
        '1 - 201 - 218',
        '2 - 201 - 218',
        '3 - 201 - 218',
        '4 - 201 - 218',
        '5 - 201 - 218',
        '6 - 201 - 218',
        '7 - 201 - 218',
   ],
);

use File::Slurp;
use Data::Dumper; $Data::Dumper::Useqq = 1;
write_file( 'big_decision_hashref.dat', Dumper(\%data) ) ;

#use YAML::Syck; $YAML::Syck::ImplicitTyping = 1;
#DumpFile( 'big_decision_hashref.yml', \%data );