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

sub header {
    my $x = shift;

    return ();
}

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

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