bash-3.2$ cat d1      
abc
cde
edf
bash-3.2$ cat d2
rst
tuv
uvw
bash-3.2$ cat d3
ghi
hij
jkl
bash-3.2$ cat t4.pl
my %data;

while (<>)
{
    chomp;
    push @{ $data{$ARGV} }, $_;
}

my @sorted_data = map $data{$_}, sort keys %data;

use Data::Dumper;
warn Dumper \@sorted_data;

bash-3.2$ t4.pl *
$VAR1 = [
          [
            'abc',
            'cde',
            'edf'
          ],
          [
            'rst',
            'tuv',
            'uvw'
          ],
          [
            'ghi',
            'hij',
            'jkl'
          ]
        ];