#!/usr/bin/perl

use strict;
use warnings;

sub my_test (\@$) {
    my ($arref, $sk) = @_;
    print "Das Array hat ", scalar(@$arref), " Werte und der Skalar ist $sk.\n";
}

my @array = (1, 2, 3);

print "Eins:\n";
my_test (@array, 4);
print "Zwei:\n";
&my_test (@array, 4);