for my $val (@Values) {
  my @valueX = split(/\|/, $val);
  ...
}