sub passMe {
    my %data = (  # note not '{'
        ...
    );
    return \%data, $ID;
}