The problem is that you are not passing in array elements, but creating a number sequnece with .. Rewriting the sub like so

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

   return sort {$a <=> $b} @data 
      if $type  eq 'Integer' || $type eq 'Float';
   return sort @data;
}
[download]

makes it easier to pass the array.