Name|Social Security Number|Other Data|Other Data|Other Data

John|384750295|Other Data|Other Data|Other Data

Anna|456328172|Other Data|Other Data|Other Data

Peter|754839273|Other Data|Other Data|Other Data

Alex|643728923|Other Data|Other Data|Other Data

Ted|367898766|Other Data|Other Data|Other Data

Peter - 754839273 - Other Data - Other Data - Other Data
Alex - 643728923 - Other Data - Other Data - Other Data
Anna - 456328172 - Other Data - Other Data - Other Data
John - 384750295 - Other Data - Other Data - Other Data
Ted - 367898766 - Other Data - Other Data - Other Data

$ss_dir = "/home/private/ss/"; # Social Security directory.
$number_to_show = "20"; # The default number of SS to show.
$use_flock = "1"; # File locking? (0=No, 1=Yes)

opendir(SSDIR, "$ss_dir");
@all_ss = grep(/\.txt$/,readdir(SSDIR));
closedir(SSDIR);
foreach $one_ss (@all_ss)
{
open (SS,"$ss_dir$one_ss");
if ($use_flock == "1")
{
flock SS, 2;
}
@entries = <SS>;
foreach $line (@entries)
{
@fields = split(/\|/,$line);
if ($z<$number_to_show)
{
$z++;
# Do the sorting from highest SS number to lowest.
# Print the sorted stuff to the screen.
}
}
close (SS);
}