while (<REG>) {
    chomp;
    my($key, $data) = split "\t", $_, 2;
    push @{$R{$key}}, $data;
}