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