sub blah {

# Do some thinking here and give a value to $return_code

return $return_code;
}

while (blah) {

# do something really useful here

}