$ perl -wE 'my @cols = qw{a b c}; say "*".@cols'
*3