{
  my $var;

  #... maincode ...

}

sub function1 {
  # can't access $var
}