foreach my $key (keys %test) {
      push (@sorted, "$key|$test{$key}->[0]|$test{$key}->[1]|$test{$key}->[2]|$test{$key}->[3]");
}
#to 
foreach my $key (keys %test) {
  	push @sorted, (join '|', ($key,@{$test{$key}});        
}