foreach $filename (@curdirlist) {
#    print "$filename\n";  #sane
    if ( $filename =~ /([0-9])/ ) {
	($startloc = @-) && ($alphaloc = $startloc + 4); }
    print "$startloc  ";
}