#!/usr/bin/perl

use strict;
use warnings;
use Tie::File;
use Fcntl;

$ENV{HOME}='C:\Documents and Settings\kompeS\Desktop\PERL SCRIPTS';
my $file= "$ENV{HOME}/partno_C7_5.03.4_prod";
my @array;
my $line="";
my @data;
my $maps_dir=""; 
my $dir=""; 
my $part_no="";
my $chg_lvl="";
my $int_lock="";
my $t_spec="";
my @list="";
my $formatted_list="";

####
#THis is to treat the file as an array
################################
open (FILE,"$file");
close(FILE);
tie (@data,'Tie::File',$file, mode=>O_RDWR) or die "Can't tie to $file:$^E\n";
(tied @data)->defer;
foreach (@data)
{

	@list=split(/ /,@data);
	$formatted_list = join("<br />",@list);
	print "@list";
	print "$formatted_list";
}
(tied @data)->flush;