sub testf {
    my $object = shift;
    my ($sname,$class,$date,$classid);
    
    
    foreach my $item (@{$object->{'school'}}) {
        $sname   = $item->{'sname'};
        $class   = $item->{'class'};
        $date    = $item->{'EnrolDate'};
        $classid = $item->{'classid'}; 
        write STDOUT
    }

format STDOUT = 
Student Name @<<<<<<<<<<<<<<<<
$sname
Class: @>>>>>>>>>>>>
$class
Enrolled Date: @|||||||
$date
Class id.: @|||||||||
$classid

.

}

my $object = {school => [
                 {sname => 'Asname', class => 'Aclass', 
                  EnrolDate => '10/10/66', classid => 'Perl'},
                  {sname => 'Bsname', class => 'Bclass', 
                  EnrolDate => '10/10/66', classid => 'Perl'},
                   {sname => 'Csname', class => 'Cclass', 
                  EnrolDate => '10/10/66', classid => 'Perl'}
                  ]};

testf($object);