#!/usr/bin/perl
     use strict;
use warning;
use Data::Dumper;
use File::Find;
use File::stat;
use sort 'stable';

my $filin = '/root/scripts/newsort.in';
my $fleot = '/root/scripts/results/size.out';

open my $fh, $filin || die $!;
open my $fot, ">$fleot" || die $!;


##Define month lengths
@Janlen = ( '006', '007', '008', '009', '010', '011', '012', '013', '014', '015', '016', '017', '018', '019', '020', '021', '022', '023', '024', '025', '026', '027', '028', '029', '030', '031' );
@Feblen = ( '032', '033', '034', '035', '036', '037', '038', '039', '040', '041', '042', '043', '044', '045', '046', '047', '048', '049', '050', '051', '052', '053', '054', '055', '056', '057', '058', '059' );
#Define month hash
%mthlens = (@Janlen, @Feblen);
my @julens = %mthlens;
my $julias = @julens;
my $Janlias = @Janlen;
my $Feblias = @Feblen;
my $Marlias = @Marlen;

while (%mthlens=<$fh>){
chomp;

my %lengths = map { $_ => length $_ } %mthlens;
while ( my ($Janlen,$length,$filename) = each 
%lengths) { 
     @s = sort { $length{$b} <=> $length{$a}} keys 
 %length;
     print join("\t", $Janlen,  $length, $filename 
), "\n";
   } 
}