@ARGV = glob 'datafile? datafile?? datafile???';

##</code><code>##

@ARGV = sort { my $an = substr $a, 8; my $bn = substr $b, 8; $an <=> $bn } glob 'datafile*';