#!/usr/bin/perl

    use strict;
    use warnings;
    use Spreadsheet::WriteExcel;


    my $workbook  = Spreadsheet::WriteExcel->new('phonetic.xls');
    my $worksheet = $workbook->add_worksheet();


    my $row = 0;

    for my $code (0x0250 .. 0x0259) {
        $worksheet->write($row++, 0, chr $code );
    }