c:\@Work\Perl>perl -wMstrict -MData::Dump -le
"my $output = 'something or other';
 ;;
 $_ = '   who knows what   ';
 my @outputlist = join 'anything at all', $output;
 dd \@outputlist;
"
["something or other"]