#!/usr/bin/perl -w
use strict;
die "Usage: $0 col[,col[...]] [file[,...]]\n" unless @ARGV;
my @cols= map { $_-1 } split/,/,shift;
my @lines= <>;
my @sort= map { my $x=join"\0"x5,(split/\s*,\s*/)[@cols];
		$x =~ s/(^|[^\d.])(\d+)/$1.pack("N",$2)/eg; $x } @lines;
print @lines[  sort { $sort[$a] cmp $sort[$b] } 0..$#sort  ];

##</code><code>##

die "Usage: $0 col[,col[...]] [file[,...]]\n" unless @ARGV;
my @cols= map { $_-1 } split/,/,shift;
print map { $_->[1] }
	sort { $a->[0] cmp $b->[0] }
	    map { my $x=join"\0\0\0\0",(split/\s*,\s*/)[@cols];
		  s/(^|[^\d.])(\d+)/$1.pack("N",$2)/eg; [$x,$_] } <>;