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

my @arr = (
           { case   => 'case1',
             id     => '001',
             name   => 'raja',
             degree => 'bcom'
           },
           # ...
          );

my $case = q();
for my $hash (@arr) {
    if ($hash->{case} ne $case) {
        print ucfirst $hash->{case}, ":\n";
        $case = $hash->{case};
    }
    print "$hash->{id}) $hash->{name}, $hash->{degree}\n";
}