#!/usr/bin/perl

use Encode;

foreach $field (@fields) {
$input{$field} = Encode::decode('UTF-8', $input{$field});
}