sub mycheck 
{
  # the following throws a warning
  my $db = $_ or my $db = "";
}