my %test_values_of = (
    '0'        => '1',
    '1'        => '1',
    '4349678L' => '9',
    '4347946L' => '9',
    '791517N'  => '9',
);
my $n = 0;
while ( my ( $key, $value ) = each(%test_values_of) ) {
    $n++;
    print $n. '.' . '#' x 20, "\n";

    for $op ( '&', '&&', 'and' ) {
        test_op( $key, $value, $n, $op );
    }
}

sub test_op {
    my ( $key, $value, $n, $op ) = @_;
    print "# [$key] $op [$value] ";
    my $rez = eval( '$key ' . $op . ' $value' );
    if ($rez) {
        print 'done';
    }
    else {
        print 'no';
    }
    print '[' . $rez . "]\n";
}

1.####################
# [4347946L] & [9] no[0]
# [4347946L] && [9] done[9]
# [4347946L] and [9] done[9]
2.####################
# [1] & [1] done[1]
# [1] && [1] done[1]
# [1] and [1] done[1]
3.####################
# [791517N] & [9] done[1]
# [791517N] && [9] done[9]
# [791517N] and [9] done[9]
4.####################
# [0] & [1] no[0]
# [0] && [1] no[0]
# [0] and [1] no[0]
5.####################
# [4349678L] & [9] no[0]
# [4349678L] && [9] done[9]
# [4349678L] and [9] done[9]