grep {                                      # @_ = map {
        push(@_,sprintf('%.2x',hex))        #              sprintf('%.2x',hex)
     } @$a;                                 #          } @$a;