use locale;
use POSIX qw(locale_h);
setlocale(LC_CTYPE, 'fi_FI');
setlocale(LC_COLLATE, 'fi_FI');

print ucfirst "äbcdef";