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

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

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

##</code><code>##

my $first_result = $dbh->selectrow_hashref(
   "SELECT something FROM somewhere"
);


my $second_result = $dbh->selectrow_hashref(
   "SELECT somethingelse FROM somewhereelse"
);

##</code><code>##

$ perl -MO=Concise -e'my $x; my $x; my $y;' 2>&1 | grep padsv
3     <0> padsv[$x:1,4] vM/LVINTRO ->4
5     <0> padsv[$x:2,4] vM/LVINTRO ->6
7     <0> padsv[$y:3,4] vM/LVINTRO ->8