...
my $res = $blpData->Subscribe( $aSec,3, $aFields, $plug, $plug,  $bbData);
warn "->Subscribe returns $res";

my @dimensions = $bbData->Dim();
warn "Dimensions are " . Dumper \@dimensions;

for my $x ($dimensions[0]->[0].. $dimensions[0]->[1]) {
    for my $y ($dimensions[1]->[0].. $dimensions[1]->[1]) {
        my $value = $bbData->Get($x, $y);
        print Dumper( $value ), ">$value<";
    };
}