my ($query, $sth, $rv);

$query = ...;
$sth   = ...;
$rv    = ...;
...

$query = ...;
$sth   = ...;
$rv    = ...;
...