for($x=0;$x<$r;$x++){
@b = sort_by_similarity( \@querysubs,$inputsubs[$x]{'sequence'});
$y=\@b;
#@array=@$y;
#print $y->[0];
#$m=\@array;
#print $m;
$h=\($y->[0]);
print $$h;
#%hash=%\($y->[0]);
foreach my $key(keys %hash){
#print "$key:$hash{$key}\n";
}
}