@files = qx(ls $type 2>&1);

##</code><code>##

my $load = glob "$data*.$_";