Shell Programming and Scripting

my $file="file";
my @array;
open(IF,"<",$file) or die "Cannot open input file:$!\n";
while(my $line = <IF>){
 chomp($line);
 push(@array,[split/=|,/,$line]); 
}
for $i ( 0 .. $#{$array[0]} ) {
    for $j ( 0 .. $#array ) {
        if( $j==$#array){
            print "$array[$j][$i]\n";
        }else{
            print "$array[$j][$i] ";   
        }
    }
}

# ./test.pl
Name Age Study Code
"Fred" "24" "English" "0"
"Bob" "30" "Engineering" "0"
"Peterson" "28" "Physics" "1"
"Susan" "23" "Maths" "1"
"Weseley" "45" "Psychology" "0"

open $fh,"<","a.spl";
my (%hash,%h,$cnt);
while(<$fh>){
	chomp;
  my @arr=split("=",$_);
  my @tmp=split(",",$arr[1]);
  map {s/"//g} @tmp;
  $hash{$arr[0]}=\@tmp;
  $cnt=$#tmp if $cnt==0;
  $h{$arr[0]}=$.;
}
my @brr=sort {$h{$a} <=> $h{$b}} keys %hash;
print join ",",@brr;
print "\n";
for(my $i=0;$i<=$cnt;$i++){
	foreach $k (@brr){
		print $hash{$k}->[$i],",";
	}
	print "\n";
}