use strict;
use warnings;
my @FieldNames =
   (
     'One'
   , 'Two'
   , 'Three'
   , 'Four'
   , 'Five'
   )
;

print join ':', shift(@FieldNames), join ',', @FieldNames;