#!/usr/bin/perl
#
use strict;

use Data::Dumper;
my @arr = ( {fruits => "apple"},  
		    {fruits => "orange"}, 
			{vegetable => "celery"},
	      );

print Dumper(@arr);