Select Code to Download

while (<>)
{
...
...
$entries{$region}{$fields[0]}{object} = $fields[5] ;
...
}

for my $region (keys %entries)
{
...
}

for my $region (keys %entries)
{
...
...
}
}

for my $size (sort {%{$entries{$region}{$a}{size}} <=> %{$entries{$reg
+ion}{$b}{size}}} keys %{$entries{$region}})
{
...
}