use strict;
use warnings;

my %g_tun =
qw(
      R1  100*32+1
      R2  1
      R3  100*32+1
  );

printf "G is %d\n", eval "$g_tun{R1}";

##</code><code>##

13:43 >perl 1584_SoPW.pl
G is 3201

13:45 >