my $datafolder = "F:/Perl_program";

##</code><code>##

my $dbh = DBI->connect( ... );

##</code><code>##

DBI->connect ( ... ) or die "Cannot connect: $DBI::errstr";

##</code><code>##

open FINAL, "<final2.csv" or die();

##</code><code>##

open(my $fh, "<", "input.txt") or die "cannot open < input.txt: $!";
open(my $fh, ">", "output.txt") or die "cannot open > output.txt: $!";

##</code><code>##

our %hash1;

##</code><code>##

while (<FINAL>) {
    our ($username, $date_modified) = split;
    $hash1{$username} = $date_modified;
}

##</code><code>##

$ perl -Mstrict -Mwarnings -le 'for (0..1) { our $x = $_ } print $x'
Variable "$x" is not imported at -e line 1.
Global symbol "$x" requires explicit package name at -e line 1.
Execution of -e aborted due to compilation errors.

$ perl -Mstrict -Mwarnings -le 'our $x; for (0..1) { $x = $_ } print $x'
1

##</code><code>##

if (our $username = our $fullname){

##</code><code>##

if ($username eq $fullname) {

##</code><code>##

our $line1;
...
our @lines1 = (<FINAL>);
...
foreach $line1(@line1){

##</code><code>##

our @lines1 = (<FINAL>);
...
for my $line1 (@line1) {

##</code><code>##

(our $username, our $date_modified) = split(',',$line1,2);

##</code><code>##

our ($username, $date_modified) = ...