use strict;
use warnings;
use Diagnostics;

my @test = qw( A B C );

write;


format STDOUT =
@<< ~ Test@< = @<
@test
.