if ($array[0] =~ /^\d+$/) {
    # do something
}