my @datafiles = grep { -f }
    glob("$basepath$ARGV[0]/$ARGV[1].{d,D}{a,A}{t,T}");