$ echo "AGE:EYES:HAIR
32:BLUE:BLONDE
54:BROWN:BROWN" | \
perl -F: -lane'
    BEGIN { $key = uc shift }
    if ( $. == 1 ) { @x{ map uc, @F } = 0 .. $#F }
    else { print $F[ $x{ $key } ] }
'  age
32
54
$ echo "AGE:EYES:HAIR
32:BLUE:BLONDE
54:BROWN:BROWN" | \
perl -F: -lane'
    BEGIN { $key = uc shift }
    if ( $. == 1 ) { @x{ map uc, @F } = 0 .. $#F }
    else { print $F[ $x{ $key } ] }
'  eyes
BLUE
BROWN
$ echo "AGE:EYES:HAIR
32:BLUE:BLONDE
54:BROWN:BROWN" | \
perl -F: -lane'
    BEGIN { $key = uc shift }
    if ( $. == 1 ) { @x{ map uc, @F } = 0 .. $#F }
    else { print $F[ $x{ $key } ] }
'  hair
BLONDE
BROWN