while (<TEST>) {
  my ($key,@fileData) = split /\|/;
  chomp @fileData;
  $test{$key} = \@fileData;
}
#to
while (<TEST>) {
  chomp;
  my ($key,@fileData) = split /\|/;
  $test{$key} = \@fileData;
}