ハッシュ 参照渡し

#!/usr/bin/perl

my %data=();
sub1(\%data);
foreach $key ( sort keys %data ) {
　　print "$key:$data{$key} \n";
}

sub sub1{
　　my ($x) = @_;
　　for ($i = 0; $i <= 10 ; $i++)
　　{
　　$x->{$i} = $i;
　　}
}