#!perl

use strict;
use warnings;
use XML::Simple qw/XMLin/;
use Data::Dumper qw/Dumper/;

my $string = qq~
<root>
	<row no="0">
		<col no="0">0.0</col>
	</row>
	<row no="1">
		<col no="0">1.0</col>
	</row>
</root>
~;
my $ref = XMLin($string);
print Dumper($ref);