use strict;
use warnings;

my $pic = 1;
my $v = {R3R3_1_IF => 100};

print "Hello world. $v->{R3R3_$pic\_IF}\n";