Help for this page

Select Code to Download

Select or download this

my $data = <<EOD;
Student Id Class John 23 2 Mark 33 3 Jerry 44 2 Sam 55 2 Tom 65 3 Test
+stud 28 2
...
  push @{$h{$arr[$c+2]}}, $arr[$c];
}
print $_."=".join(",",@{$h{$_}})."\n" for (keys %h);

Select or download this
```
3=Mark,Tom
2=John,Jerry,Sam,Teststud
```