If i understood your question correctly, is this you want?

$input = $ARGV[0];

undef $/;
$str = <DATA>;

while ($str =~ /(template?\d+)[^}]+}/gsi)
{
    
    $hash{$1} = $&;
}

%temp = ('test1' => "template2", 'test2' => "template3", 'test1,test2'
+ => "template1");


@a= keys %hash;
@m= grep /^$temp{$input}$/, @a;
print "$m";
if (@m)
{
    print "$hash{$m[0]}" ;
}
else
{
    print "$hash{'template4'}";
}
#print "$_\t$hash{$_}\n" for keys %hash;
__DATA__
template1(test1,test2) {
  variable_1 : input;
  index_1(" 1.0, 2.0");
  index_2(" 1.0, 2.0");
}
template2(test1,!test2) {
  variable_1 : output;
  index_1(" 1.0, 2.0");
  
}
template3(!test1,test2) {
  variable_1 : time;
  index_2(" 1.0, 2.0");
}
template4(!test1,!test2) {
  variable_1 : time;
  index_1(" 1.0, 2.0");
}
[download]

updated:

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.