my $csv = Text::CSV_XS->new();
my @all_costs = all_shipping_costs();

	foreach my $info (@all_costs)
	{

		foreach my $rate (@{$info->{'rates'}})
		{
			# print Dumper $rate;

		$csv->say(*STDOUT, [$info->{'country'}.", ".$info->{'postcode'}.", ".$info->{'label'}.", ".$rate->{'service_code'}.", ".$rate->{'total_price'}.", '".$rate->{'service_name'}.", C:".$info->{'chilled'}.", F:".$info->{'fresh'}.", FR:".$info->{'frozen'}]);

		}
	}

	 die;