while ( my ($key, $value) = each %{$data->{tags}} ) { 
	say "$key => $value"; 
}

for my $key ( sort keys %{$data->{tags}} ) {
	say "$key : ", $data->{tags}->{$key};
	
}