my @a = qw/one/;
$~ = "TEST";
write;

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