$l=0;
while($l<$#sorted)
{
   push @data_out_ref, \$sorted[$l] if substr($sorted[$l],0,7) ne substr($sorted[$l++ +1],0,7);
}
print "$$_\n" for @data_out_ref;

##</code><code>##

for($l=0; $l<$#sorted; $l++)
{
 splice(@sorted, $l, 1) if substr($sorted[$l],0,7) eq substr($sorted[$l+1],0,7);
}