OOPS

After posting this i realized it clobbers the duplicates, which I didnt see at first.

This is possible with the KeyAttr option:

#!/usr/bin/perl

use Data::Dumper;
use XML::Simple;
use strict;
use warnings;

my $filename = shift or die "Usage: decode <filename>\n";

# dies on its own on error
my $xmldata = XMLin($filename, KeyAttr => { 'div' => 'class'  });

print Dumper $xmldata;

__END__
[download]