#!/usr/local/bin/perl use strict; use warnings; sub header { my $x = shift; return (); } my @x = (header())[0]; use Data::Dumper; warn Dumper \@x;