my @categories = qw(birds turds flirds);
my %data;

foreach (@categories) {
  local *DATA;
  open DATA, "$_.dat" or die "Can't open $_.dat: $!\n";

  $data{$_} = [ <DATA> ];
}