$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;