#!/usr/bin/perl

use strict;
use warnings;

print "test: ", test(),"\n";

print "test: " . test();

sub test{
    my @array = (1,5);
    return @array;
}