I suggest using strict</code> and <c>warnings, just to be on the safe side. Variable $sur doesn't seem to be necessary, you can write directly:

my @array = ( { one => 'USA', ... }, {...}, ... );
[download]

I also wonder why you need hashes inside the array, and why you don't use (anonymous) arrays:

my @array = ( [ 'USA', 'GOD', '690557', 'hello how are u' ],  [ ... ],
+ ... );
[download]

which lets you say:

foreach my $aref (@array) {
   # If you really need them...
   my ($one, $two, $three, $four) = @$aref;
   # Etc. etc.
}
[download]