diff --git a/sandbox/read_form_fields.pl b/sandbox/read_form_fields.pl
index acb2ed4524..c9b6cd2a05 100755
--- a/sandbox/read_form_fields.pl
+++ b/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";
 	}
 }