my $foo;
  # some code
  print "The string is $foo\n";