use feature ":5.14";
use warnings FATAL => qw(all);
use strict;
use Data::Dump qw(dump);

my $h = {
          'response' => {
                          'blogs' => [
                                       {
                                         'url' => 'equipo.tumblr.com',
                                         'name' => 'equipo',
                                         'updated' => 1346015230
                                       },
                                       {
                                         'url' => 'linux.tumblr.com',
                                         'name' => 'linuxmint',
                                         'updated' => 1345967468
                                       }
                                     ],
                        }, 
        };

say $_->{url} for @{$h->{response}->{blogs}};

##</code><code>##

equipo.tumblr.com
linux.tumblr.com