... ##

##

my $url = 'https://some.url/file.xml';
my $LWP_Data;
use LWP::UserAgent;
$LWP_Data->{ua} = LWP::UserAgent->new;
$LWP_Data->{ua}->timeout(7);
$LWP_Data->{feed} = $LWP_Data->{ua}->get($url);
if ($LWP_Data->{feed}->is_success) {
    my $xml = $LWP_Data->{feed}->content;
    use XML::Simple qw(:strict);
    my $ref = XMLin( $xml, ForceArray => 1,KeyAttr => [ ]);
    ...

##

##

my $url = 'https://some.url/file.xml';
my $LWP_Data;
use LWP::UserAgent;
$LWP_Data->{ua} = LWP::UserAgent->new;
$LWP_Data->{ua}->timeout(7);
$LWP_Data->{feed} = $LWP_Data->{ua}->get($url);
if ($LWP_Data->{feed}->is_success) {
    my $xml = $LWP_Data->{feed}->content;
    use Encode;
    my $encoded_xml = Encode::encode_utf8($xml);
    use XML::Simple qw(:strict);
    my $ref = XMLin( $encoded_xml, ForceArray => 1,KeyAttr => [ ]);
    # for a not nested hash ref
    foreach my $key (keys %{$ref }) {
        Encode::from_to($ref ->{$key}, "UTF-8", "iso-8859-1");
    }
    ...