$album = Album->new;
  $album->add_song(Song->new(...));
  ...

##</code><code>##

 $as_json = q{ { album_title: ...,
               songs: [ { song_title: ...,  },
                        { song_title: ...,  },
                      ]
                }
             };

##</code><code>##

  $as_perl = JSON->new->decode($as_json);