#!/usr/bin/perl

use strict;
use warnings;

my @array;
my $line="";
my @data;
my @list;
my $maps_dir=""; 
my $dir=""; 
my $part_no="";
my $chg_lvl="";
my $int_lock="";
my $t_spec="";


open (FILE,"$file");
@data=<FILE>;
while(<FILE>)
{
    push @list, [split/s+/];
    
}