my @in;
while (chomp(my $in = <DATA>)) {
  push @in,[split /\s+/,$in];
}
for (sort {$a->[0] cmp $b->[0] or $a->[5] <=> $b->[5]} @in) {
  print join(",\t",@$_),"\n";
}
_ _DATA_ _
IC71-1         SO14           MENI     901    8  5   GA
D65-1          SOD15          MENI       1    2  2   GA
IC14-1         SO16           LAND      15    2  5   GA
D17-1          MELF           MENI     903    6 810   GA
IC14-1         SO16           LAND       2    2  5   GA
IC14-1         SO16           LAND       9    2  5   GA
IC69-1         SO-16L         MENI     601    2  2   GA
R94-1          R0805          MENI     900    8  2   GA
IC14-1         SO16           LAND      12    2  5   GA
IC14-1         SO16           LAND      10    2 690   GA
D17-1          MELF           MENI     900   20  5   GA
D14-1          SOD15          MENI       1    2  2   GA
R426-1         MINIMELF       MENI     900    8 110   GA
D178-1         SOD15          MENI       1    2  2   GA
D138-1         SOD-80C        LAND       1    2 380   GA
D142-1         SOD15          MENI     900   4a  2   GA
IC71-1         SO14           MENP     508   20 630   GA
IC14-1         SO16           MENP     506   20  5   GA
IC14-1         SO16           MENP     507   20  5   GA
IC14-1         SO16           MENP     508   20  5   GA
IC14-1         SO16           MENP     502   20  5   GA
IC11-1         SO16           MENP     501   10 390   GA