main ()
{

my $string = foo(@arr);
print "string outside function is " + $string;

}

foo()
{
   //create string
   print "String inside function is " + $string;
   return $string;
}