sub is_int
{
        ($_[0] =~ /^\-?\d+(?:\.\d+)?(?:e\+\d+)?$/
        && $_[0] == int $_[0]);
}