I would do this like:

sub sortData
{
  my $dataType = pop;

  if($dataType  eq 'Integer' || $dataType eq 'Float')
  {
    sort {$a <=> $b} @_;
  }
  else
  {
    sort @_;
  }
}
[download]