#! /usr/sbin/perl
#
# NAME
#	/usr/bin/sort1
#sorts a file with lines in the form "1.she.1,1.she.2 etc" into numeric order
sub bysheet
{   
        $keya = $a , $keyb = $b ;
        $keya =~ s|(.*/)*.*\.she|she|;
	$keyb =~ s|(.*/)*.*\.she|she|;
	( substr($keya,4) <=> substr($keyb,4) )  ;
	}

@array = <STDIN>;
@array = sort bysheet(@array);
foreach $out (@array)
	{print $out;
	}