use strict;
use warnings;
use Data::Dumper;

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";

my @file_content = split( /\n/, $file );
my @full_data;

push @full_data, [split] for @file_content;

for my $line_ref (@full_data) {
	print "$_\t" for @$line_ref;
	print "\n";
}