sortByColor("D:/sort.xls",12); 

sub sortByColor 
{ 
    my $filename = $_[0]; 
    my $no_of_columns = $_[1]; 
    ... 
    }