Select Code to Download

use strict;
use warnings;
...
my $v = {R3R3_1_IF => 100};

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

Backslash found where operator expected at mytest.pl line 9, near "$pi
+c\"
    (Missing operator before \?)
...
my $pic = 1;
my $v = {'R3R3_1_IF', 100};
print "Hello world. $$v{$pic->R3R3_(\'_IF')}\n";

use strict;
use warnings;
...
my $v = {R3R3_1_IF => 100};

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

Bareword found where operator expected at mytest.pl line 9, near "${pi
+c}_IF"
    (Missing operator before _IF?)
...
my $pic = 1;
my $v = {'R3R3_1_IF', 100};
print "Hello world. $$v{$pic->R3R3_('_IF')}\n";