my ($pin) = $dbh->selectrow_array( "select pin_value from pins where status is null limit 1 for update" );

$dbh->do( "update pins set status='used' where pin_value=$pin" );