if (a eq "Bed1") {
 $h_name = 'ea'
}
else {
 $h_name = 'et';
}
oder

$has_name = a =~ /bed1/ ? 'ea' : 'et;'