#Initialize array @M
#this array contains the frequencyvalues for earthquake magnitudes 2-9
#@M=0;

open (IN, "<$ARGV[0]") || die ("Cannot open $ARGV[0]: $!");
@MyProfileData = <IN>;

foreach $line (@MyProfileData) {

#this is the columns in the USGS NEIC datafile
($easting, $northing, $mag) = split " ", $line;
print "$easting $northing $mag ,";
}
#for each magnitude, sum the events
#for ($i=2; $i<=9; $i++) {
#if ($MAGNITUDE >= $i) {
#   $M[$i] ++;
#   }
#   }
#   
#}

#print the result
#for ($i=2; $i<=9; $i++) {
#print "Magnitude => $i: Total number = $M[$i]\n";
#}
 
   
