Replace bareword filehandles with lexical filehandles

Issue: https://progress.opensuse.org/issues/179975

Author: perlpunk

t/12-profiler.t

@@ -25,9 +25,7 @@ my $t = Test::Mojo->new('OpenQA::WebAPI');
 # now get some DB action done
 $t->get_ok('/tests')->status_is(200);
 
-open(FILE, $filename);
-my @lines = <FILE>;
-close(FILE);
+my @lines = <$fh>;
 
 like(join('', @lines), qr/.*debug\] \[pid:.*\] \[DBIC\] Took .* seconds: SELECT.*/, 'seconds in log file');
 

t/api/02-assets.t

@@ -31,8 +31,8 @@ sub iso_path {
 sub touch_isos {
     my ($isos) = @_;
     for my $iso (@$isos) {
-        ok(open(FH, '>', iso_path($iso)), "touch $iso");
-        close FH;
+        ok open(my $fh, '>', iso_path($iso)), "touch $iso";
+        close $fh;
     }
 }
 my $iso1 = 'test-dvd-1.iso';