Select Code to Download

"teams":[
{}, #team 
{}  # another team
],

{
  "sports": [
...
    }
  ]
}

 for my $match (@{$parse_json->{sports}}) {
    my $teamname   = $match->{leagues}[0]{teams}[0]{team}{name};
    $Response_tmlist .= $teamname;
    print $Response_tmlist;
}