my $results = $res->content;
$xml = new XML::Simple (KeyAttr => [],suppressempty => 1,ForceArray => ['roomtype']);
$data = $xml->XMLin("$results");

foreach $e (@{$data->{data}->{bb}->{roomtypes}->{roomtype}}){
$roomtypename=$e->{roomtypename};
$rateid=$e->{mealtypes}->{mealtype}->{rateid};
}