sub debug {
    my @vars = @_;
    my $i;
    foreach (@vars) {
       print("Var $i = $_\n");
    }
    print("\n");
    return(1);
}