#!/usr/bin/env perl
use strict;
use warnings;

my @files = <data/j*.*.txt>;
if (@ARGV) {
    @files = map { <data/$_> } @ARGV;
}   
        
print "Using @files";