配列のハッシュ…考え中…

#!/usr/bin/perl -w
use strict;
use warnings;

eval {
  my %main_data;
  my $id = 100;

  my @data;
  @data = (1,2,3,4,5);
  print "@data\n";

  push @{ $main_data{$id} }, @data;

  push @{ $main_data{$id} }, @data;
  
  push @{ $main_data{$id} }, @data;

  foreach( @{ $main_data{$id} } ){
    print $id . "\t";
    foreach(@$_){
      print "$_\t";
    }
    print "\n";
  }

};if($@){
  print "Exception : $@\n";
  return;
}
1;
__END__

$idを変えればハッシュに登録されていくが…
push だと配列がつながっちゃうんだよね…

  push @{ $main_data{1} }, (a, b, c);
  push @{ $main_data{1} }, (d, e, f);
    ↓
  (a, b, c, d, e, f)

先ず、どうしたいのか…。