#!/usr/bin/perl

$_ = [];
my @a = $_->@*;
say "@a";