my @trans_array = (); my @trans_array = &Cpt::transactions_summary( $current_user ); foreach my $transaction (@trans_array) { print ""; print " $transaction->{'serial_num'}"; print " $transaction->{'Action_date'}"; print " $transaction->{'actor'}"; print " $transaction->{'type'}"; print " $transaction->{'trans_data'}"; print " $transaction->{'content'}"; print ""; }