#!/usr/bin/perl -w

    use strict;
    use Spreadsheet::WriteExcel;

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

    open INPUT, 'data.SSM' or die "Couldn't open file: $!";

    $worksheet->write($.-1, 0, [split]) while <INPUT>;