Perl call by reference hash subroutines

#!/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;
  }
}