foreach my($xy) (@$tmp) {
        ((print($_) . ', ') . $xy);
    }