$lengths{$line}= {x=> $site[0], y=>$site[1], z=> \@data};

##</code><code>##

for my $coord (keys %lengths) {
   for (@{$lengths{$coord}{z}}) {
      print "$_\n";
   }
}

##</code><code>##

$VAR57 = '10:36759286';
$VAR58 = {
           'reads' => $VAR2->{'reads'},
           'x' => '10',
           'y' => '36759286'