Dance( 1 );
sub Dance {
    my( $foo ) = @_;
    print "I win, $foo\n";
}