push (@r, $r[0])