#! /usr/bin/perl

if(open(INFILE,"auto.txt")){
       
#Add the file contents to an array
@data = <INFILE>;
     
%edit = @data

}
else
{
        print "No such file or directory\n";
}