#!/usr/bin/perl
use strict;

my $col  = $ARGV[1];
my $file = $ARGV[2];

$col--;
my @data;

open(IN,$file) || die "can't open: $!";
while(<IN>) {
	s/[\r\n]//g;
	push(@data,[ split(/,/,$_) ]);
}
close(IN);

foreach (sort {$a->[$col] cmp $b->[$col]} @data) {
	print join(",",@{$_}),"\n";
}