$TEST{$key} = join( "|", @filedata )

##</code><code>##

s/^([^|]+)|//;
my $key = $1;
$TEST{$key} = $_;