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