my @tmp = split(',', $data[0]);
print $tmp[$#tmp]."\n".$tmp[$#tmp-1];