# Pastebin Czie5Fq0
$ perl6 -MRed -e '

model Bla { has Int $.a is column; has Int $.b is column }
say Bla.^columns.keys>>.column>>.name
'
(b a)