return ...; #### my @x = ...; use Data::Dumper; warn(Dumper(\@x)); return $x[0];