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

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