my @words = qw (Oli Sonni sonja oliver speedy 112);

my @output = 
	map $_->[0],
	sort {$a->[1] cmp $b->[1]}
	map [$_, transform($_)],
	@words;	

sub transform{
		my $string = shift;
		$string =~ tr/A-Z/a-z/;#kleinschreibung
		$string =~ tr/a-z//cd;
	
}

for my $word (@output){say $word;}