my @in; while (chomp(my $in = )) { 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