I guess. Do you mean this?

#!/usr/bin/env perl
use strict;
use warnings;
use Data::Dumper;

$Data::Dumper::Sortkeys = 1;

my @data = ( [ 3, 4, 5, 1 ], [ 1, 2, 3, 4 ], [ 3, 3, 1, 6 ] );

my %hash = map { $_ => $data[$_] } 0 .. $#data;

print Dumper \%hash;

__END__

    $VAR1 = {
          '0' => [
                   3,
                   4,
                   5,
                   1
                 ],
          '1' => [
                   1,
                   2,
                   3,
                   4
                 ],
          '2' => [
                   3,
                   3,
                   1,
                   6
                 ]
};
[download]

Regards, Karl