open FILE, "<$data_file"; @file_data = ; close FILE; @file_data = map { $_->[0] } sort { $b->[0] cmp $a->[0] } map { [ $_, (split(/\t/)) ] } @file_data; print qq(); for(@file_data){ print qq(); for(split(/\t/)){print qq()}; print qq(); } print qq(
$_
);