Select Code to Download

if ($field eq "name") {
  $a->{$field} cmp $b->{$field}
...
else {
  $a->{$field} <=> $b->{$field}
}

if ($field eq "name") { @sorted = sort @data; }
else { @sorted = sort {$a <=> $b} @data; }