#!perl
use strict;
use warnings;


sub test($);
sub hallo(\@$);

my @array = qw(3 2 1);
test('hallo','welt');
hallo(@array,'foo');

sub test($){
    print join(" ",@_);
}

sub hallo(\@$){
  print scalar(shift),' ',shift;
}