sort { (exists $a->{vtype_ug}||0) <=> (exists $b->{vtype_ug}||0) }

##</code><code>##

@sorted = sort { (exists $b->{vtype_ug}||0) <=> (exists $a->{vtype_ug}||0) }
   sort { $a->{total_rate} <=> $b->{total_rate} }
   @arr;

##</code><code>##

@sorted = sort { exists $b->{vtype_ug} <=> exists $a->{vtype_ug} }
   sort { $a->{total_rate} <=> $b->{total_rate} }
   @arr;