#!/usr/bin/perl -W
use strict;
use warnings;
@ARGV = ('sonne','wolke5','45');
if (grep {$_ =~ /^\d+$/} @ARGV) { print "jaaaa" }