use strict;
use warnings;

my @numbers = ( 10, -10, 10.1, -10.1 );

for ( @numbers ) {
    if ( $_ == int $_ ) {
        print "$_ ist ein integer.\n";
    }
    else {
        print "$_ ist kein integer.\n";
    }
}