$VAR1 = 
          {
            'quantity' => 1,
            'name' => 'abc1'
          },
          {
            'quantity' => 2,
            'name' => 'abc2'
          }


##</code><code>##


   $VAR1 = [      {
            'quantity' => 1,
            'name' => 'abc1'
          },
          {
            'quantity' => 2,
            'name' => 'abc2'
          }
        ];
    
 

##</code><code>##

   
 sub display_cart {
        my ($cgi, $session) = @_;

        # getting the cart's contents
        my $cart = $session->param("CART") || [];
        my $total_price = 0;
        my $RV = q~<table><tr><th>Title</th><th>Price</th></tr>~;

        if ( $cart ) {
            for my $product ( @{$cart} ) {
                $total_price += $product->{price};
                $RV = qq~
                    <tr>
                        <td>$product->{name}</td>
                        <td>$product->{price}</td>
                    </tr>~;
            }