use strict;
use warnings;

my %files;

for my $file (<*.abc>) {
	open my $fh, '<', $file or die $!;

	while (<$fh>) {
		push @{ $files{$file} }, $1 if /FREQ\s+([\d.]+)/;
	}

	close $fh;
}

print "$_  FREQ @{ $files{$_} }\n" for keys %files;