#!/usr/bin/perl -W
use strict;
use warnings;
@ARGV = ('sonne','wolke5','4');
my $exists = scalar grep { my $x = int $_; "$x" eq $_ } @ARGV; 
print $exists;