$VAR1 = [
          'one',
          'fish',
          'two',
          'fish',
          'red',
          'fish',
          'blue',
          'fish'
        ];

##</code><code>##

say Dumper( [ map { $_ => "fish" } qw(one two red blue) ] );