my @kurve_f = (); # wie oben beschrieben
my @kurve_g = (); # wie oben beschrieben
my %kurven;

foreach my $punkt (@kurve_f) {
    $kurven{$punkt->{x}} = [ $punkt->{y}, undef ];
}

foreach my $punkt (@kurve_g) {
    $kurven{$punkt->{x}}[1] = $punkt->{y};
}