$cookie_jar = HTTP::Cookies->new();
    $mechanizer = WWW::Mechanize->new(cookie_jar  => $cookie_jar);

# Anfrage starten

$cookie_jar = HTTP::Cookies->new();
$mechanizer = WWW::Mechanize->new(cookie_jar  => $cookie_jar);
    (@page, $response, %reply_headers)
           = post_https(xxx.xxx.xxx.xxx, 443, "$formAction", '',
              make_form(username   => 'Kennung',
                             passwort => 'Passwort'
    ));

@page = get_https("xxx.xxx.xxx.xxx", 443,"$urlargs");

#!/usr/bin/perl

use strict;
use warnings;

my (@array,$skalar) = methode();

print ">>@array<<\n>>$skalar<<\n";

sub methode{
    my @tmp = qw(1 2 3);
    my $test = 4;
    return @tmp,$test;
}

C:\community>array.pl
Use of uninitialized value in concatenation (.) or string at C:\community\array.pl line 8.
>>1 2 3 4<<
>><<