> print join("," , map{ $_->{name}} @{$json});

Подитожу:
@names = map{$_->{name}} @{$json};
или
@names = map{$_->{name}} @$json;