#!/usr/bin/perl

use strict;
use warnings;

my $bd = "3";

if($bd eq "3") {
    print "bla";
}
if($bd == 3) {
    print "bla";
}