use warnings;
use strict;
#use Data::Dump; # Debug
use File::Basename qw/fileparse/;
use File::stat;

my %filelist;
for my $file (glob '/user/*/ws/*/BLK_*/*.txt') {
	my $bn = fileparse($file);
	my $mtime = stat($file)->mtime;
	#dd $file, $bn, $mtime; # Debug
	$filelist{$bn} = [$file,$mtime]
		unless $filelist{$bn} && $filelist{$bn}[1]>$mtime;
}
#dd \%filelist; # Debug
my @filelist = sort map {$_->[0]} values %filelist;
#dd \@filelist; # Debug