foreach (@array) {
  if (/^\d+$/) {
    $max=$_ if ($_>$max)
  }
}