use Data::Dump qw/ dd /;
my $wanted => { hi => 4, bye => 2 };
my $raw = "bits";
dd( $wanted , RawToRecord( $raw ) );
sub RawToRecord {
    my( $raw ) = @_;
    %record ... unpack ... pack ...;
    return \%record;
}