use 5.010;
use Scalar::Util qw(looks_like_number);

sub is_int (_) {
  my $i = shift;
  looks_like_number($i) and int($i)==$i;
}

say for grep { is_int } qw(
	-6
	5.2
	5.0
	3e4
	0Hello
);