MT#59163 Stop using deprecated given/when perl construct

This experimental perl construct has been marked as deprecated in
perl 5.38 and targeted for removal in a later release. Switch its
usage to a normal cascaded if/elsif and avoid future surprises.

Change-Id: I268f6e17482bfa356fed8d1e003b317d24324f2f

sandbox/read_form_fields.pl

@@ -5,21 +5,17 @@ use Data::Printer;
 use NGCP::Panel::Form::BillingFee;
 
 sub field_to_json {
-	my $name = shift;
+	local $_ = shift;
 
-	given($name) {
-		when(/Float|Integer|Money|PosInteger|Minute|Hour|MonthDay|Year/) {
-			return "Number";
-		}
-		when(/Boolean/) {
-			return "Boolean";
-		}
-		when(/Repeatable/) {
-			return "Array";
-		}
-		default {
-			return "String";
+	if (/Float|Integer|Money|PosInteger|Minute|Hour|MonthDay|Year/) {
+		return "Number";
+	} elsif (/Boolean/) {
+		return "Boolean";
 		}
+	} elsif (/Repeatable/) {
+		return "Array";
+	} else {
+		return "String";
 	}
 }