package MyLib;
use strict; use warnings;

sub get_data {
    my %hash = (
        A => {
            a => 1,
            b => 2,
        },
        B => {
            a => 3,
            b => 4,
        },
    );

    return \%hash;
}

1;