$Data = "\@Array = (";
foreach (@Array) {
	$Data .= "\"$_\",";
}
$Data .= "\"$Input\"";
$Data .= ");";

print $Data;