#!/usr/local/bin/perl
use strict;
use warnings;

sub f {
    return ();
}

my @x = (f())[0];

use Data::Dumper;
print Dumper \@x;