my $port = verify_port($value);

if (defined $port) {
  (do stuff)
}
else {
  (handle error case)
}

sub verify_port {
  my $candidate = shift;

  if ( [suitable] ) {
    return $candidate;
  }
  else {
    return;
  }
}