sub versatility{
my(%site1)=@_;
my(%site2)=@_;

for (keys(%site1)) {
   if ($site2{$_}) {
     my $m=(@{$site1{$_}}[1]-@{$site2{$_}}[1]);
     my $n=(@{$site1{$_}}[0]-@{$site2{$_}}[0]);
     my $slope=$m/$n;
       print "velocity= $slope\n";

   }
}
}