--- a/scan.pl	Fri Oct 31 10:44:28 2008 +0800
+++ b/scan.pl	Fri Oct 31 10:52:52 2008 +0800
@@ -93,6 +93,7 @@
     $i->login;
     my $cities = $i->check;
     foreach my $cityId (keys(%$cities)) {
+        printf("%s %s\n", $cities->{$cityId}->{island}->{x},  $cities->{$cityId}->{island}->{y});
         my @islands = $i->viewWorldMap( $cities->{$cityId}->{island}->{x},  $cities->{$cityId}->{island}->{y});
         saveIslands(@islands);
     }
@@ -102,7 +103,7 @@
 }
 
 sub saveIslands {
-    my @islands = shift;
+    my @islands = @_;
 
     foreach my $h_island (@islands)
     {