Select Code to Download

if ( grep $_ == $xpid, @procs ) {
   print "Pid is in use : $xpid\n";
}

$procs = $dbh->selectall_arrayref("select spid from v\$process");
if ( grep $_ == $xpid, @$procs ) {
   print "Pid is in use : $xpid\n";
}

$procs = $dbh->selectall_arrayref("select spid from v\$process");
my $found;
...
if ($found) {
   print "Pid is in use : $xpid\n";
}

$procs = $dbh->selectall_arrayref('select spid from v$process');