foreach my $ss_ln (@ss_in) {
		chomp($ss_ln);
		if ($ss_ln =~ m/.*$SSFN.*/) { #temp sorting of mminfo
			#print "$ss_ln\n" if $DEBUG;
			my ($ssid, $clnid, $name, $nsavetime, $savetime, $volume, $sumsize) =  split(',', $ss_ln);
			push(@{$ss_out{$nsavetime}},{
				ssid  =>  $ssid."/".$clnid,
				name => $name,
				savetime => $savetime,
				vol => $volume,
				sumsize => $sumsize
			});

		} #temp sorting of mminfo
	}
	print Dumper (%ss_out) if $DEBUG;
	foreach my $k (sort keys %ss_out) {
		my @ss_proc1 = \$ss_out{$k};
		print Dumper (\$ss_out{$k}) if $DEBUG;
		print "savetime: $k\n stuff:@ss_proc1\n";
	}