use strict;
use warnings;

use Data::Dumper; $Data::Dumper::Useqq = 1;
my $data_href = do 'big_decision_hashref.dat';

#use YAML::Syck; $YAML::Syck::ImplicitTyping = 1;
#my $data_href = LoadFile( 'big_decision_hashref.yml' );

die unless $data_href;

my $dataset = $ARGV[0] || 'foo1';

my $act_bsites_aref = $data_href->{$dataset}
  or die "Invalid dataset '$dataset'";

my @act_bsites = @{ $act_bsites_aref };

#print Dumper \@act_bsites; # For debugging