use strict;
use warnings;
use Text::CSV_XS 'csv';

my $aoa = csv( in => *DATA );
my @headers = shift @$aoa;

my @sorted = sort { $a->[0] cmp $b->[0] || $a->[2] cmp $b->[2] } @$aoa;

csv( in => \@sorted, headers => @headers );

__DATA__
column1,column2,column3
b,foo,v
a,bar,y
c,baz,w
b,qux,z
b,nif,x

##</code><code>##

column1,column2,column3
a,bar,y
b,foo,v
b,nif,x
b,qux,z
c,baz,w