open TESTCASE, "imp2.txt" or die $!;
chomp(@array = <TESTCASE>);

open CONFIGFILE, "imp1.txt" or die $!;

##</code><code>##

if (...)
{
  $incr++;
  sendMessage();
}

# ...

{
my $msg = <<END;
REGISTER sip: 36.212.176.07 SIP/2.0\r
Via: SIP/2.0/UDP 36.212.176.90:5060; branch= z9hg4bk340\r
...
END

  sub sendMessage
  {
    print "\nSending message:$msg";
    $MySocket->send($msg);
  }
}