@a = map{(split)[0]}@a;

##</code><code>##

    perl -lane 'print $F[0] if @F' file


##</code><code>##

    @a = grep!/^:/,map+(split)[0],@a;