Select Code to Download

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

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

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

$ 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