#!/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 $map_dir=""; 
my $dir=""; 
my $part_no="";
my $chg_lvl="";
my $int_lock="";
my $t_spec="";
my @list="";
my $formatted_list="";

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)
{
	($map_dir,$dir,$part_no,$chg_lvl,$int_lock,$t_spec) = split /\s+/;
	print "@list";
	print "$formatted_list";
	print "	$map_dir,$dir,$part_no,$chg_lvl,$int_lock,$t_spec";
}

(tied @data)->flush;