use strict; 
use warnings; 
 
my $cov; 
 
for my $header ( keys %sequences ) { 
	if ( ($cov) = $header =~ /cov_([\d.]+)/ and $cov <= 50 and $cov >= 5 ) { 
		print "$header => $sequences{$header}\n"; 
	} 
}