understanding the hi-fi code

What code are you calling the hi-fi code?

@ARGV = glob 'datafile*';

open my $OUTPUT, '>', 'output_file' or die "Cannot open 'output_file' 
+because: $!";

my %data;
while ( <> ) {
    next unless /^(.+) (\S+)$/;
    push @{ $data{ $1 } }, $2;
    }

for my $key ( sort keys %data ) {
    print join ' ', $key, @{ $data{ $key } }, scalar @{ $data{ $key } 
+}, "columns\n";
    }
[download]

======================== I have files by name datafile1,datafile2,datafile3,datafile4.........datafile200 in a directory. But these files are stored in a a different pattern ...datafile1,datafile10,datafile11,datafile12 and so on. The above program is reading and writing in the same order. I would like to pick data from in the an order from datafile1, 2, 3 to data200. Any suggestions and additions are appreciated. Thank you.

code by jwkrahn. that is working for me. i would like it to be decoded to my level, a beginner.

I'm afraid you'll have to be more specific which parts need explaining.

See also FMTYEWTK About Mass Edits In Perl, Iterator::Diamond/Iterator::Files, Tutorials: Perl documentation documentation, Searching Perl Documentation