#!/usr/bin/env perl 
use strict;
use warnings;

my $pic = 1;
my $key_MS = sub { "R3R3_${pic}_IF"; };
print "Old pic value is " . &$key_MS . "\n";
$pic = 2;
print "New pic value is " . &$key_MS . "\n";