package foo;
my $foo = 5;
my $bar = 7;

sub set_foobar {
  $foo = 6;
  $foo::bar = 8;
}