foreach (@saved) {
    s/|/=/;
    push @sort, $_;
}
...