my (@left, @right) = ();
foreach (@field) {
 m/\(([0-9]+)\/([0-9]+)\)/;
 my $leftnum = $1; my $rightnum = $2;
 push(@left, $leftnum); push(@right, $rightnum);
}