#!perl

my @a = qw/one two three four five/;
$~ = "TEST";
write;

format TEST =
---+++---
a: @* @* @* ~~
   shift @a, shift @a, shift @a
---------
.