fork download
copy 
  1. #!/usr/bin/perl
  2. # your code goes here
  3. use Data::Dumper;
  4. my @columns = qw(test1 test2 test3);
  5. my $data = [ 100, 200, 300 ];
  6. my @res;
  7. push @res, +{ map { $columns[$_] => $data->[$_] } (0..$#columns) };
  8. print Dumper \@res;
Success #stdin #stdout 0s 21056KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
$VAR1 = [
          {
            'test3' => 300,
            'test2' => 200,
            'test1' => 100
          }
        ];
https://ideone.com/m3V7Fd
language:
Perl (perl 5.28.1)
created:
6 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!