my @new = split ('>', $joi1);
...
my @new;
..
foreach (@new) {