my %g_tun = qw (

                R1  100*32+1
                R2  1
                R3  100*32+1
             );
print "G is $g_tun{R1}\n";