use strict;
use warnings;

my @rgbVals = do
   {
       no warnings q{syntax};
       qw{ #ff00ff #2e7fee };
   };

print
   map {
           qq{@{
                 [
                     join q{,}, map { hex } m{^.(..)(..)(..)}
                 ]
             }\n}
       }
   @rgbVals;