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