foreach my $key ( keys %data )
{
    my $out = ''; 
    foreach my $s  ( @{ $data{$key}} )
    {   
        if ( ref $s eq 'ARRAY' )
        {   
            $out .= '[' . ( join ',', @$s ) . ']';
        }   
        else 
        {   
            while ( my ($k,$v) = each %$s )
            {   
                $out .= ",{\"$k\":$v}";
            }   
        }   
    }   

    print $key . "\t[$out]\n";
}
[download]