#!/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;
}