#!/usr/bin/perl -w

use encoding "utf8";  
              
use strict;
my @a=("a"..."ö");
for (@a ) {


print  $_\n;
}