my @a = qw/one/; $~ = "TEST"; write; format TEST = ---+++--- a: @* ~~ shift @a --------- . #### Use of uninitialized value in formline at p.pl line 10. ---+++--- a: one --------- #### a: one two three
## Use of uninitialized value in formline at p.pl line 10. ---+++--- a: one --------- ##
## a: one two three