#!c:\perl\bin

use strict;
use warnings;

my @data = (1,-5,0,-8,2,0,4,7,3,6,9);

@data = sortData("Integer",@data);

sub sortData
{
  my ($dataType, @data) =@_;

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