our ( $s, $t, %h, @a );
$s = 0;
$h{a} = "";
$a[1] = 1;

print_vals();

print "\nundef-ing values\n";
$s = undef;
$h{a} = undef;
$a[1] = undef;
print_vals();

sub print_vals {
    print "S " if ( defined $s );
    print "T " if ( defined $t );
    print "\n";

    print "h{a} " if ( defined $h{a} );
    print "h{b} " if ( defined $h{b} );
    print "\n";

    print "a[1] " if ( defined $a[1] );
    print "a[0] " if ( defined $a[0] );
    print "\n";
}