use strict;
use warnings;

 my @files = map{$_->[0]}