local our $foo = 1;
Dance();
sub Dance { 
    print "I win, $foo\n";
}