use Encode;
@hira = Encode::decode( 'utf8', @hira );#if
encode('utf8', decode('utf8', @hira), @hira));
@hira = decode("utf-8", @hira );
binmode @hira, ':encoding(utf8)';