while (<FH>) {
    my ($zahl, $werta, $wertb) = split;
    $hash{$zahl} = [ $werta, $wertb ];
}