I'd write that as:

my %hair_properties = @args{qw(
    hair_style
    hair_length
    hair_color
)}; #    ^^^^^  Blasted Brits who can't accept
    #           a simplification of the language . . .
[download]

That way your users won't have to type the extra '-' char. Further, this method is actually shorter when your list starts growing (four-char overhead of qw() stays constant).