@url=qw($url2 $url3 $url4 $url5 $url6 $url7);

##</code><code>##

@oldurl=$sth->fetchrow;

##</code><code>##

@url = map {$q->param("rurl$_")} (2..7);