#!/usr/bin/perl

use strict;
use warnings;

my $counter = 1;

sub test{
  print "Lauf: $counter @_\n";
}

@_ = qw~1 2 3~;

&test;
++$counter;
test;