use strict;
use XML::Simple;

my $xs = XML::Simple->new();
my $sqlref = $xs->XMLin('sqldata.xml');

my $rowsref = $sqlref->{'rs:data'}{'z:row'};

foreach my $row (@$rowsref) {
	print "---------New Row--------\n";
	print $row->{'column1'}, "\n";
	print $row->{'column2'}, "\n";
	print $row->{'column3'}, "\n";
}