my $wert = Math::BigFloat->new(
    $id
   .(ord(substr($land,0,1))-55)
   .(ord(substr($land,1,1))-55)
   .'00'
);