foreach $line (@lines){
			chomp $line;
			$count++;
			next unless $count; 
			my @row = ();
			@row = split(/,/, $line );
			push @sheet2 , \@row;
		}

		foreach my $row ( sort {$a->[0] cmp $b->[0] || $a->[1] cmp $b->[1]}  @sheet2 ) 			#sorting based on date ,then stockcode
		{  		
			chomp $row;
			print hanw join (',', @$row ),"\n";
		}