Programming

#! /usr/bin/perl
 
use strict;
use warnings;
 
my $location = "/home/name/files";
my ($cur_priority, $ost, $sst, $file, $sfile) = "";
 
opendir(DIR,"$location");
my @files=sort(grep{/^[^.]/} readdir(DIR));
print "Before Sort: @files\n";
close(DIR);
 
for(my $i=0;$i<scalar(@files);$i++)
{
 $file = sprintf("%s/%s","$location",$files[$i]);
 $ost = (stat($file))[9];
 $cur_priority = (split(/\_/,$files[$i]))[0];
 for(my $j=0;$j<scalar(@files);$j++)
 {
    if ( $files[$j] =~ /^$cur_priority/ )
    {
       $sfile = sprintf("%s/%s","$location",$files[$j]);
       $sst = (stat($sfile))[9];
       if ( $ost < $sst )
       {
          my $temp = $files[$i];
          $files[$i] = $files[$j];
          $files[$j] = $temp;
       }
    }
 }
}
print "After Sort: @files\n";