Borrowing from 2teez's solution, the table could be loaded like this.

Update A possible change of code to fit Deep_Plaid's followup question.

#!/usr/bin/perl
use strict;
use warnings;
use Text::Table;

my $file = "1.00 InDev 01-Jun-2013
1.00 InTest 15-Jul-2013
1.00 InUAT 31-Jul-2013
1.00 InProd 15-Sep-2013
1.01 InDev 01-Jul-2013
2.00 InDev 01-Aug-2013
3.00 InDev 01-Sep-2013";

open my $fh, '<', \$file;

my %line;
while (<$fh>) {
    my ($ver, $status, $date) = split;
    $line{ $ver }{ $status } = $date;
}

my @status = qw/ InDev InTest InUAT InProd /;
my @module = (undef, qw/ IXR Reports Three /);

my $tb = Text::Table->new( "Module", "Version", @status );

for my $ver (sort keys %line) {
    my ($i) = $ver =~ /(\d+)/;
    $tb->load([ $module[$i], $ver, map $_ // 'N/A', @{$line{$ver}}{ @s
+tatus } ]);
}

print $tb;
[download]

Produces output:

Module  Version InDev       InTest      InUAT       InProd
IXR     1.00    01-Jun-2013 15-Jul-2013 31-Jul-2013 15-Sep-2013
IXR     1.01    01-Jul-2013 N/A         N/A         N/A
Reports 2.00    01-Aug-2013 N/A         N/A         N/A
Three   3.00    01-Sep-2013 N/A         N/A         N/A
[download]