#!/usr/bin/env perl
use strict;
use warnings;
use feature 'say';

my @result = @{ subroutine() };
say "@result";

sub subroutine {
    my @array = ();
    return \@array;
}