for (@files) {
	my $suffix = (m/\.(\w+)$/) ? $1 : 'none';
	push(@{$groups{$suffix}},$_);
}