use warnings;
use strict;

my $pic = 1;
my $v = {R3R3_1_IF => 555};
my $key = "R3R3_${pic}_IF";
print "set groups interfaces $v->{$key}\n";

__END__

set groups interfaces 555